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0. Vorwort 


Der extreme Preisverfall auf dem Computermarkt hat dazu 
geführt, daß man heute Microcomputer für relativ wenig 
Geld kaufen kann, die noch vor kaum mehr als zehn Jahren 
fast unbezahlbar waren. 

Während damals nur große Organisationen wie Ministerien, 
Universitäten und Großunternehmen in der Lage waren Com- 
puter zur Lösung bestimmter Aufgaben zu nutzen, finden wir 
heute schon in vielen privaten Haushalten elektronische 
Geräte, die von ihrer Leistungsfähigkeit her gesehen in 

der damaligen Zeit ein kleines Rechenzentrum darstellten. 


Der eine oder andere Käufer eines Microcomputers (mit oder 
ohne umfangreicher Peripherie) wird sich - nachdem die 
ersten Computerspiele gespielt sind - fragen, welche Auf- 
gaben denn nun der Rechner übernehmen kann. 

Neben der Behandlung sämtlicher Fähigkeiten und Besonder- 
heiten des Schneider CPC, steht die Beantwortung dieser 
Frage im Mittelpunkt des vorliegenden Buches. Dabei soll 
der Leser jedoch nicht nur fertige Konzepte übernehmen 
(dann könnte er auch seinen Computerhändler direkt nach 
fertiger Software fragen), sondern er sollte anhand der 
Programmbeschreibungen erkennen, wie man Ideen problema- 
tisiert und programmtechnisch umsetzt. 

Die einzelnen Programme sind in der Programmiersprache 
BASIC geschrieben, die ja heute im Microcomputerbereich 
eine dominierende Rolle spielt. Zwar wird vorausgesetzt, 

daß der Leser einige BASIC-Grundkenntnisse besitzt, er 


sollte aber auch nach intensiver Durcharbeitung des Be- 
dienungshandbuches zum Schneider CPC in der Lage sein, 
die verschiedenen Programme zu verstehen, auch wenn 
dies zugegebenermaßen nicht immer ganz einfach ist. Die 
Programme sind daher so aufgebaut, daß erkennbar bleibt, 
was geschieht. Dies ging natürlich gelegentlich zu Lasten 
der Programmeleganz und der Rechengeschwindigkeit. Der 
Nutzen dieses Buches erschließt sich für den Leser somit 
insbesondere dann, wenn er die vorgestellten Programme 
verändert oder auf seine eigenen Bedürfnisse hin bear- 
beitet. Sollten dabei scheinbar unüberwindbare Schwierig- 
keiten auf Sie zu kommen, dann bedenken Sie: 


Es ist noch kein Meister vom Himmel gefallen 


Die einzelnen Kapitel in diesem Buch werden in der Regel 
nach folgendem Muster unterteilt: 


a) Vorstellung und Problematisierung einer Idee 
b) Programm 

c) Liste der im Programm verwendeten Variablen 
d) Programmbeschreibung 

und ggf. 


e) Programmergebnisse 


Die aufgegriffenen Ideen haben programmiertechnische Lö- 
sungen unterschiedlichen Schwierigkeitsgrades zur Folge. 
Es ist jedoch darauf geachtet worden, daß zu Beginn eines 
neuen Kapitels zuerst die Ideen bzw. Vorschläge mit den 
einfacheren Programmlösungen vorgestellt werden, um den 
in BASIC noch nicht ganz "sattelfesten" Leser langsam an 
den Aufbau komplizierterer Programme heranzuführen. 
Prinzipiell ist weiterhin zu beachten, daß nicht immer 
unsinnige oder von der Logik des Programmablaufs her 
unmögliche Eingaben abgefangen werden. Darauf wird im 
einzelnen aber noch hingewiesen. 


1. Der CPC und was man mit ihm machen kann 


Schaut man sich den Markt für Microcomputer an, so stellt 
man fest, daß mittlerweile eine ganze Reihe vergleichba- 

rer Rechner der gleichen Preisklasse angeboten werden. 

Nur gelegentlich fällt ein elektronisches Gerät dieser Art 
wirklich aus dem Rahmen. Der Schneider (egal in welcher 
Ausführung) gehört sicherlich zu den Hechten (oder ist er 

der Hecht ?) unter so vielen Karpfen im Teich. Er weist ei- 
nige bemerkenswerte Eigenschaften auf, die ihresgleichen 
suchen. 

Neben den außerordentlichen Graphik- und Musikeigenschaften 
ist insbesondere die Definition von Fenstern (windows) zur 
Festlegung eines Bildschirmteilbereichs als eigen ansprech- 
bares Ein/Ausgabegerät (stream), sowie die Programmierung 
zeitabhängiger Unterbrechungen (interrupts)zur gleichzei- 

tigen bzw. zeitabhängigen Durchführung unterschiedlicher 
Handlungen hevorzuheben. Auf diese Besonderheiten wird bei 
ihrer Anwendung in den folgenden Kapiteln noch näher einge- 
gangen. 


Schon in der Grundausstattung ist das Schneider CPC - 
System eine voll funktionfähige Rechenanlage. Mit ihr 
lassen sich die grundlegenden Datenverarbeitungsschritte 


- Daten- bzw. Informationsaufnahme (über die Tastatur) 


- Informations- bzw. Datenspeicherung (intern oder 
extern) 

- Auswerten bzw. Verarbeiten dieser Daten 

- Ergebnisausgabe (über den Bildschirm) 


ausführen. 

Ein Nachteil bei der Benutzung eines Cassettengerätes als 
externes Speichermedium ist, daß Cassetten nur sequentiell 
beschrieben bzw. gelesen werden können. Soll zum Beispiel 
eine bestimmte Datei von einer Cassette gelesen werden, 
dann muß diese Cassette erst an die betreffende Stelle ge- 
spult werden. Dies kann eine unter Umständen recht unange- 
nehme Sucharbeit zur Folge haben. Es ist auf jeden Fall 
sinnvoll, nicht zuviele Informationen auf einer Cassetten- 
seite zu speichern und sich mit Hilfe des Bandzählwerks 
(counter) die einzelnen Positionen zu merken. 


Bequemer ist da schon der Einsatz eines Diskettenlauf- 
werks. Neben der größeren Speicherkapazität einer Dis- 
kette, ist ein sehr schneller Zugriff auf bestimmte Po- 


sitionen möglich (die Diskette dreht sich ständig und sehr 

rasch im Laufwerk). Man spricht daher auch von einem Spei- 
cher mit direkter Zugriffsmöglichkeit (direct- access- 

Speicher). Bezüglich der zu verwendenden BASIC-Anweisungen 
unterscheidet sich der Einsatz eines Diskettenlaufwerks 
prinzipiell nicht von der Benutzung eines Casettenrecorders. 
Die Programme sind somit voll kompatibel. 


Der Nutzen eines Computers erschließt sich für den Benutzer 
erst dann, wenn er über die geeignete Software verfügt. Die 
Frage, wie man an gute und für die individuellen Aufgaben 
geeigneten Programme kommt, läßt sich auf 3 Arten beantwor- 
ten: 


1) Fertig-Software kaufen 
2) Programmlistings abtippen 
3) Programme selbst entwickeln 


Wenn Ihnen die Zeit oder die Erfahrung zur selbständigen 
Programmierung fehlt, sind Sie auf den Software-Markt an- 
gewiesen. Dies gilt insbesondere dann, wenn Sie Ihren neu 
gekauften Computer direkt mehr oder weniger professionell 
ensetzen wollen (man denke da z. B. an Textverarbeitung, 
Finanzbuchhaltung, Kalkulation usw.). Die Auswahl bei Fer- 
tigprogrammen ist jedoch sehr groß. Gerade für den CPC sind 

in der letzten Zeit sehr viele Programme auf den Markt ge- 
kommen, die von der Qualität und vom Preis sehr unterschied- 
lich sind. Vor dem Kauf lohnt es sich auf jeden Fall, inten- 
sive Vergleiche anzustellen. Folgende Gesichtspunkte sollten 
Sie dabei unbedingt beachten: 


- Qualität der Benutzeranleitung 

- Service der Anbieter 

- Berücksichtigung des individuellen Aufgabenbereichs 
- Software-Tests in Fachzeitschriften 


Das Abtippen von Programmlistings ist eine nicht unproble- 
matische Angelegenheit. Je nachdem, wie unseriös die Heraus- 
geber sind, muß nämlich damit gerechnet werden, daß die Li- 
stings mit Fehlern gespickt sind. Da es, wenn die notwendi- 

gen Programmerläuterungen fehlen, sehr schwierig ist, sich 

in die Logik eines unbekannten Programms hineinzudenken, 

kann die Fehlersuche und -bereinigung mehr Zeit in Anspruch 
nehmen als die selbständige Programmentwicklung. Vor dem Ab- 
tippen umfangreicher Programmlistings sollten Sie also die 
jeweilige Quelle prüfen. 


Viele Kritiker der privaten Computernutzung bezeichnen das 
"Computern" als nicht kreative Tätigkeit. In der Tat kann 

es sehr stupide sein, Tag für Tag mit dem Rechner "nur" zu 
spielen. Das "Computern" wird aber ohne Zweifel zu einem 
kreativen Hobby, wenn Programme selbst geschrieben oder an- 
gepasst werden. Dem einen oder anderen Computerbesitzer 
fehlen aber u. U. die Anregungen und Ideen um kreativ mit 


seinem Rechner arbeiten zu können. Für diesen Personenkreis 
dürfte das vorliegende Buch geradezu ideal sein, da doch 

die verschiedensten Themen und Vorschläge aufgegriffen und 
programmtechnisch umgesetzt werden. Zu diesen "fertigen" 
(aber natürlich noch änderbaren) Programmen kommen zu je- 
dem "Ideenblock" noch weitere Vorschläge (Kapitel "Fund- 
grube"), die in diesem Buch nicht näher behandelt werden 
konnten, aber vielleicht den Leser zur Programmentwicklung 
anregen. Aufgrund der Themenvielfalt müßte auf jeden Fall 
für alle Interessenten etwas "passendes" dabei sein. 


2. Nützliche Kleinigkeiten - einfach programmiert 


2.1. Vorbemerkung 


In diesem ersten eigentlichen Ideenkapitel werden ver- 
gleichsweise einfache und überschaubare Programmlösungen 
vorgestellt. Hingegen sind die Programmerläuterungen - 
setzt man sie zu den Schwierigkeitgraden der Programme 

in Beziehung - recht umfangreich. Dadurch soll erreicht 
werden, daß der ungeübte Leser langsam an die etwas 
komplizierteren Programme der folgenden Kapitel herange- 
führt wird. 


Inhaltlich handelt es sich hier - insbesondere bei den 

ersten drei Programmen - um Problemlösungen, die in grö- 
ßBeren und umfangreicheren Programmen als Unterprogramme 
benutzt werden können. So werden Sie zum Beispiel im 
weiteren Verlauf dieses Buches häufig auf die Prozent- 
rechnung stoßen, welche zur Lösung kleinerer Probleme 
nützliche Dienste erweisen kann. 


2.2. Die Prozentrechnung 


Häufig ist es notwendig, zwei oder mehrere Werte mitein- 
ander zu vergleichen. Dabei dient uns die Zahl 100 als 
Vergleichsbasis. 


Folgende Grundbegriffe der Prozentrechnung sind vorab zu 

klären: 

l. Grundwert: 
Der Grundwert entspricht dem Ganzen, also 100 Hun- 
dertsteln oder 100%. Er ist stets eine benannte 
Zahl (DM, kg, m oder ähnliches). 

2. Prozentwert: 
Der Prozentwert ist ein Teil des Grundwertes. Er ist 
ebenfalls eine benannte Zahl. 

3. Prozentsatz: 
Der Prozentsatz ist auch ein Teil des Grundwertes. Er 


wird jedoch in bezug auf 100 angegeben. Prozentsatz 
und Prozentwert entsprechen einander. 
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Ein kleines Beispiel soll Ihnen den Umgang mit diesen Be- 
griffen erleichtern: 


Sagen wir einmal, Ihr CPC 464 kostet im Computerladen xyz 
898,- DM (Grundwert). Nun gehen Sie zu einem anderen Händ- 
ler, der 4% (100 - Prozentsatz) unter diesem Preis blei- 

ben will. Entweder fragen Sie diesen Händler nach dem ge- 
nauen Preis (Prozentwert), oder Sie berechnen ihn mit fol- 
gender Formel: 


Grundwert * Prozentsatz 
Prozentwert = 
100 


898 DM * 96 
= 862.08 DM 


100 


Vielleicht sind Sie nun der Meinung, daß der Einsatz eines 
Computers für so einfache Rechnungen nicht notwendig ist. 
Aber, Hand aufs Herz, rechnen Sie so etwas im Kopf? Wahr- 
scheinlich werden Sie einen Taschenrechner oder zumindest 
Papier und Bleistift benötigen. Und dann muß der eine oder 
andere vielleicht doch noch einmal kurz überlegen, wie 

so ein Prozentwert berechnet wird. Dazu kommt 


noch, daß in dem folgenden Programm auch - falls dies ge- 
wünscht wird - der unbekannte Grundwert oder der unbe- 
kannte Prozentsatz berechnet werden kann. Und da haben 
sicherlich viele schon nicht mehr die entsprechenden Be- 
rechnungsformeln parat, obwohl sie ganz einfach sind: 


Prozentwert * 100 
Prozentsatz = 
Grundwert 


Prozentwert * 100 
Grundwert = 
Prozentsatz 


Pogramm: 


SB) "Bernd Kowal, 


emtbwer't 
“urchanes tk 


car unlae 


hende Zahl ein. ! 


2.49 


"RINTSINFUT" Ihre Wahl "ya 
; i ı THEN 220 


fuer die" 
en an. ":FRINTEIFRINT 


> der Berechnungen" sEND 


"apa 


Grundmert ist gleich 3"3gm 


er E "naar 
"ygw 


:RINT"Der F entsatbz ist Gleich 3 "sp8 


Variablenliste: 


a = Antwortvariable für das Auswahlmenü 
gw = Grundwert 

ps = Prozentsatz 

pw = Prozentwert 


x$ = Hilfsvariable, die den Wert der gedrückten Taste 
zurückgibt 


Da die Variable x$ in jedem Programm dieses Buches die 
gleiche Funktion hat, wird sie in den folgenden Kapiteln 
nicht mehr gesondert aufgeführt. 


Programmbeschreibung: 


Satz 10 : Kommentar (wird nicht ausgegeben) 


Satz 20 : Der Bildschirm wird freigemacht 


Satz 30- 70 : Titelausdruck 
Satz 80 : Das Unterprogramm "Warten" wird aufgerufen 
Satz 90-150 : Ausgabe des Auswahlmenüs 


Satz 160 : Ein dem Auswahlmenü entsprechender Wert 
wird angefordert 
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Satz 170: Es wird zum Programmende verzweigt, wenn 


Satz D- 200: 


ein zu großer oder ein zu kleiner Wert ein- 
gegeben wird 


Der Bildschirm wird gelöscht und es wird 
ein Kommentar bezüglich der noch zu 
machenden Eingaben ausgegeben 


Satz 210 : In Abhängigkeit von der Eingabe zur Menü- 


auswahl erfolgt ein Sprung in das entspre- 
chende Unterprogramm 


Satz 220 : Programmende 


Satz 230-270 : 


Satz 280-320 : 


Satz 330-370: 


Satz 380-420: 


Unterprogramm zur Berechnung des Prozent- 
wertes 
230-240 : Für den bekannten Grundwert und 
für den bekannten Prozentsatz 
werden Werte angefordert 
250 : Der Prozentwert wird berechnet 


260 : Das Ergebnis wird ausgegeben 
270 : Rücksprung aus dem Unterprogramm 


Unterprogramm zur Berechnung des Grundwer- 
tes. Die Vorgehensweise entspricht der der 
Sätze 230-270. 


Unterprogramm zur Berechnung des Prozent- 
satzes. Es wird entsprechend der beiden 
vorangegangenen Unterprogramme verfahren 


Unterprogramm zum Warten 
380 : Kommentar 
390 : Der Cursor wird auf die angegebene 
Position gebracht 
400 : Ein Kommentar wird ausgegeben 
410 : Unterbrechung des Programmablaufs 
bis eine Taste gedrückt wird 
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420 : Der Bildschirm wird freigemacht und 
es erfolgt ein Rücksprung aus dem 
Unterprogramm 


Programmergebnisse: 


Starten wir das Programm mit dem Kommando RUN, so er- 
scheint auf dem Bildschirm die Programmüberschrift. 

Drücken wir dann eine Taste, wird das Auswahlmenü ausge- 
geben und eine Eingabe für den unbekannten Wert wird an- 
gefordert. Wenn wir z. B. den Wert I eingeben, wird ein 
Kommentar ausgegeben und es wird eine Zahl für den Grund- 
wert angefordert. Geben wir beispielsweise den Wert 898 

ein, so wird noch ein Wert für den Prozentsatz verlangt. 

Nach Eingabe der Zahl 96 antwortet der Rechner mit: 


Der Prozentwert ist gleich : 862.08 


Ende der Berechnungen 
Ready 


Es sei noch einmal erwähnt, daß das Programm so allgemein 
gehalten ist, daß es für beliebige Eingaben den Prozent- 
wert, den Grundwert oder den Prozentsatz berechnet. 

Die Problematik dieses Programmvorschlags erfordert ei- 
gentlich nicht eine Programmbeschreibung, die so ausführ- 
lich ist wie hier praktiziert. Es sollte auch vielmehr ge- 
zeigt werden, wie in den einzelnen Kapiteln prinzipiell 
vorgegangen wird. Im folgenden werden daher relativ ein- 
fache Programme knapper kommentiert werden. 


2.3. Der kleinste, der größte und der Durchschnittswert 


Stellen Sie sich vor, Sie sind Vorsitzender eines Vereins 
und wollen etwas zur Altersstruktur der Vereinsmitglieder 
wissen. Was liegt näher, als nach dem Alter des jüngsten 
und des ältesten Mitglieds, sowie nach dem Durchschnitts- 
alter (gemeint ist das arithmetische Mittel) zu fragen. 


Während Sie früher Papier, Bleistift und etwas Zeit benö- 
tigten um diese Fragen zu beantworten, ist es heutzutage 
ausreichend, Ihren CPC richtig einzusetzen. Sie brauchen 
nur ein entsprechendes Programm. Und das finden Sie direkt 
auf der nächsten Seite. 

Natürlich läuft das Programm nicht nur für Altersangaben, 
sondern für beliebige Zahlen. Sie können es also auch be- 
nutzen, wenn Sie nicht Vorsitzender eines Vereins sind. 


Falls Sie einen größeren Datenbestand haben, ist es u. U. 
sinnvoller, die einzelnen Werte nicht mit dem INPUT-State- 
ment, sondern mit den Statements DATA und READ einzugeben 
(siehe Kapitel 2.4), da bei der Eingabe mehrerer Werte 

ziemlich schnell Fehler beim Eintippen auftreten. 


iz 


Programm: 


zum Auf: 
und 


echnung des Durchschnitt 


nid Komaly, 19 


» Daten "an 


yeingabe s"=:FRINT 


Mer" as INFUT acı) 


Wert, 
[N j 


Le druecken" 


THEN 310 


418- 


Variablenliste: 


a(i) = die eingegebenen Werte 

d = Durchschnittswert 

g = größter Wert 

i = Laufindex 

k = kleinster Wert 

n = Anzahl der eingegebenen Werte 


s = Summe der eingegebenen Werte 


Programmbeschreibung: 


Satz 10-100 : Überschrift 


Satz 110: Ein Wert für die Anzahl der einzugebenden 
Zahlen wird angefordert 


Satz 120 : Es wird zum Programmende verzweigt, wenn 
keine Zahlen eingegeben werden sollen 


Satz 130 : Für das Feld a(n) wird Speicherplatz be- 
reitgestellt 


Satz 140-180 : Eingabe der Daten. Im Feld s werden die 
einzelnen Werte direkt aufsummiert. 


19. 


Satz 190 : Der Durchschnittswert wird berechnet und 
für die Variablen k und g wird als Start- 
größe der zuerst eingegebene Wert a(l) an- 
genommen 


Satz 200-230 : Alle eingegebenen Werte werden mit dem 
kleinsten - (Satz 210) und dem größten 
Wert (Satz 220) verglichen. Ist ein Wert 
kleiner bzw. größer als der bisherige 
kleinste bzw. größte Wert, so ändert sich 
der Wert der Variablen k bzw. g entspre- 
chend. Die Programmschleife beginnt erst 
bei dem Wert i=2, da in Satz 190 die Va- 
riablen k und g mit dem ersten Wert a(l) 
belegt worden sind. 


Satz 240-260 : Ergebnisausdruck 
Satz 270 : Programmende 


Satz 280-320 : Unterprogramm "Warten" 


Programmergebnisse: 


Geben wir nach dem Programmstart 4 Werte ein, zum Beispiel 
die Zahlen 19, 63, 79 und 56, so erhalten wir folgendes 
Ergebnis: 


Kleinster Wert = 19 
Groesster Wert = 79 


° Durchschnittswert = 54.25 
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Programmende 
Ready 


Ein derartiges Ergebnis können wir natürlich auch noch 
interpretieren. Es ist nämlich auffallend, daß drei Werte 
oberhalb, aber nur ein Wert unterhalb des Durchschnitts- 
wertes liegen, und daß der kleinste Wert viel weiter ent- 
fernt ist vom Durchschnittswert als der größte Wert. Die 
Ursache hierfür ist in der ungleichmäßigen Verteilung der 
untersuchten Werte über das gesamte Zahlenspektrum hinweg 
zu sehen. Auf unseren Vereinsvorsitzenden bezogen hieße 
das, daß zwar auch die Jugend im Verein vertreten ist, 
sonst aber die älteren Damen und Herren eindeutig domi- 
nieren. 


== 


2.4. Die alphabetische Ordnung 


Bleiben wir bei unserem Vereinsvorsitzenden. Nehmen wir 
einmal an, Sie als Vorsitzender wollten die Mitglieder- 
kartei in Ordnung bringen. Dazu gehört sicherlich das al- 
phabetische Sortieren aller Namen. Dies kann bei einem um- 
fangreichen Mitgliederbestand schon recht mühsam sein. 
Aber richtig unangenehm wäre eine derartige Sortierarbeit, 
wenn zum Beispiel die Namen in Telefonbüchern " von Hand" 
sortiert werden müßten. 


Recht unproblematisch ist diese Arbeit mit Computerunter- 
stützung. Das vorliegende Programm sortiert eine beliebige 
Anzahl von Wörtern oder allgemein von Strings. Die Daten 
werden hier im Gegensatz zum letzten Programm mit Hilfe 
des DATA-Statements eingegeben. Wollen Sie also andere Da- 
ten benutzen, so müssen Sie die entsprechenden DATA -State- 
ments umändern und für die Variable n eine entsprechende 
Zahl eingeben. 


Zu beachten ist, daß für die Daten nur Großbuchstaben ver- 
wandt wurden. Eine gemischte Verwendung von großen und 
kleinen Buchstaben führt aufgrund einer Rechnervorein- 
stellung immer dazu, daß Großbuchstaben als die "klei- 

neren" betrachtet werden. So ist z. B. die Bedingung C <c 
immer erfüllt. Mit Hilfe der Funktionen LOWER$ bzw. UPPER$ 
ist jedoch eine Umwandlung von Großbuchstaben in Klein- 
buchstaben bzw. umgekehrt möglich, so daß auch Groß- und 
Kleinbuchstaben gemischt verwendet werden könnten. 
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Das vorliegende Programm läßt sich auch ohne Probleme um- 
ändern, wenn Sie keine Strings, sondern Zahlen sortieren 
möchten. Sie müssen dann nur die Variablen w$ und hi$ 
ändern (aus w$ wird w und aus hi$ wird hi) und die ent- 
sprechenden Daten bereitstellen. 


Programm: 


gramm zum alphabet 
rtjieren von Wa 


ZOMFUT ‚F 
EFC 464 


n-1 
Ton 
TE 


= 99.- 


Variablenliste: 


hi$ = Hilfsfeld 
i = Laufindex 
J = Laufindex 
n = Anzahl der String-Variablen 


w$(i) = die Wörter bzw. Strings 


Programmbeschreibung: 


Satz 10- 70 : Überschrift 


Satz 80- 90 : Eingabe der Stringanzahl 


Satz 100 : Verzweigung zum Programmende, wenn keine 
Strings eingelesen werden sollen 


Satz 110 : Der Bildschirm wird gelöscht und es wird 
Speicherplatz reserviert 


Satz 120 : Kommentar 


Satz 130-160 : Die Daten werden bereitgestellt und einge- 
lesen 


Satz 170-240 : Die Wörter werden alphabetisch sortiert und 
das Ergebnis wird ausgegeben. 
Sortieren heißt hier, daß je zwei Wörter 
miteinander verglichen werden. Zunächst 


= die 


wird das zuerst eingelesene Wort w$(i), für 
i=1, mit allen übrigen Wörtern w$(j), für 
J=2...n, verglichen. Folgt dabei w$(1) im 
Alphabet einem anderen Wort w$(j), so wer- 
den die beiden verglichenen Wörter ver- 
tauscht (Satz 200). Nach diesem Durchlauf 
(Satz 180-210) steht dann an erster Stelle 
(w$(1)) das Wort, das im Alphabet vorne 
steht. 

Im folgenden wird dann die Laufvariable i 
jeweils um 1 erhöht, d. h., daß zuerst das 
an zweiter Stelle stehende Wort w$(2) mit 
allen übrigen Wörtern (nur nicht mit w$(1)) 
verglichen und ggf. vertauscht wird, an- 
schließend das an dritter Stelle stehende 
Wort usw. 

Insgesamt werden somit alle nur möglichen 
Vergleiche angestellt. 


Satz 250 : Programmende 


Satz 260-300 : Unterprogramm "Warten" 
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Programmergebnisse: 


COMPUTER 

DER 

DER 

FUER 

RICHTIGE 
SCHNEIDER CPC 464 


SIE 


Ein richtiger Satz alphabetisch geordnet ! 


2.5. Spielen Sie Lotto ? 


Sie sind 36 Jahre alt, wurden am 12.9.48 geboren und ver- 
gessen am 20.3 immer Ihren Hochzeitstag? Dann werden Sie 
vielleicht mit folgenden Zahlen Woche für Woche Ihr Glück 
beim Lottospiel versuchen: 


36,12,9,48,20,3 


Diese Zahlen können Sie jetzt vergessen (nur in dieser An- 
ordnung natürlich). Wahrscheinlich haben sie Ihnen auch 
nicht viel Glück gebracht. Ihr CPC liefert Ihnen jetzt 

Woche für Woche 6 Glückszahlen. Ob Sie mit diesen "Compu- 
terzahlen" mehr Glück haben werden als mit Ihrer alten 
Kombination ist allerdings fraglich. Die Wahrscheinlich- 

keit für 6 Richtige bleibt nämlich die gleiche. Um Ihnen 

da jegliche Hoffnungen zu nehmen, sagt Ihnen der Computer 
direkt, wieviele verschiedene Möglichkeiten es gibt, 6 aus 

49 Zahlen auszuwählen. 


Zu dem folgenden Programm sind einige mathematische Er- 
läuterungen erforderlich: 


== 


Es ist zwar recht unproblematisch 6 Zufallszahlen zwischen 
1 und 49 zu erzeugen (dies geschieht mit Hilfe der Funk- 
tio RND), jedoch ist die Bestimmung der Anzahl der Mög- 
lichkeiten 6 bzw. k Elemente aus 49 bzw. n Elementen aus- 
zuwählen komplizierter, da wir dazu die mathematische 
Größe des Binomialkoeffizienten (x) benötigen (lies n über 
K). 

Es gilt folgende Berechnungsformel: 


n! 


(n-k)! * k! 


Für den mathematisch interessierten Leser sei an dieser 
Stelle noch erwähnt, daß der Binomialkoeffizient den Fak- 
toren entspricht, die sich bei der Auflösung der sog. 
Binome ergeben. So ist: 

1 n-2 ,2 


(atb)" = af + 4) atını+ 2) a b* +... 


n-1 

Aber zurück zur Problematik des vorliegenden Programms. 
Da mit den Werten n=49 und k=6 bei der Fakultätenberech- 
nung in der obigen Formel Zahlenwerte erreicht werden, die 
größer als der größte darstellbare Wert sind und die 
Fehlermeldung "Overflow" zur Folge hätten, ist der Quo- 
tient der Formel im Programm gekürzt worden: 


ı*r2*3*4%,*n 


ı1*2*3*,..*(n-k)*1*2*3*..*k 


(k+1) * (k+2) * (k+3) *..*n 


1*2*3*4*  * (n-k) 
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Berücksichtigt man, daß (X) = („"%) - wie man leicht aus 
der obigen Berechnungsformel ersehen kann - , so ergibt 
sich für n=49 und k=6 (bzw. k=43): 


49 44 * 45 * 46 * 47 * 48 * 49 


el+r2*3+4*5*6 


Diese mathematischen Erläuterungen sollten in erster Linie 
ein Nachvollziehen der einzelnen Programmschritte erleich- 
tern. Das Programm selbst ist so gehalten, daß eine Än- 
derung des Satzes 190 die Berechnung beliebiger Binomial- 
koeffizienten M) ermöglicht. Der Ergebnisausdruck ist 
dann jedoch entsprechend zu ändern. 


Programm: 


- Frogramm zur Erzeugung van & 
zahlen zwischen 1 und 


5 i Eimmung der Anz: 
FRINT TAB ( 'de Mosglichkeiten 5 aus 497" 
FRINT TAB(ö}"Zahlen auszuwaehlen (Lotto) ' 
FRINTIFRINTE FR 


"Eernd Howal, 15705" 


ufallszahleıi zwischen 1 und 49 
IR i=1 TO © 
(id=INT RND#49+1) 
Je1 TO il 
tiber dj) THEN LEO 


- 29 — 


ıhlem" 


inde der Berechnungen" 


i=aw TO ewrl &T 


» drucken 1" 
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Variablenliste: 


= Schleifenanfangswert 

= Schleifenendwert 

Produkt im Unterprogramm "Fakultäten" 

Laufindex und Faktor im Unterprogramm "Fakultäten" 
Laufindex 

Anzahl der auszuwählenden Elemente 


Zahl der Elemente 


ne = Nenner in der Berechnungsformel für (X 


x(i) = Zufallszahlen zwischen I und 49 


z = Zähler in der Berechnungsformel für IM) 


Programmbeschreibung: 


Satz 10-100 : Überschrift 


Satz 110-180 : 6 Zufallszahlen zwischen I und 49 werden 
bestimmt und ausgegeben. 
In den Sätzen 140-160 wird jede erzeugte 
Zufallszahl mit den schon ausgegebenen 
Zahlen verglichen und im Falle einer vor- 
liegenden Gleichheit wird, ohne Erhöhung 


der Laufvariablen, eine neue Zufallszahl 
x(i) gebildet.. 
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Satz 190 : Die Variablen n und k werden mit Werten be- 
legt 


Satz 200 : Ist k>n, so ist (W=0. In diesem Fall er- 
folgt eine Verzweigung zur Ergebnisausgabe. 


Satz 210: Wenn n-k>k ist, wird k gleich n-K gesetzt, 
um die Berechnung zu vereinfachen (siehe 
oben) 


Satz 220-230 : Zähler und Nenner der gekürzten Formel wer- 
den berechnet 


Satz 240-260 : Ergebnisausgabe 

Satz 270 : Programmende 

Satz 280-330 : Unterprogramm "Fakultäten" 
Fakultäten werden nur berechnet, wenn die 
Variable ew gleich 0 ist. Ansonsten werden 


beliebige Produkte gebildet. 


Satz 340-390 : Unterprogramm "Warten" 


Programmergebnisse: 


Die Ergebnisausgabe könnte folgendes Aussehen haben: 


6 Zufallszahlen zwischen 1 und 49: 


l .te Zahl : 32 
2 .te Zahl :5 


-32-—- 


3 .te Zahl: 
4 .te Zahl: 
5 .te Zahl: 
6 .te Zahl: 


Es gibt 13983816 verschiedene Möglichkeiten 
6 aus 49 Zahlen auszuwählen ! 


Da kann man eigentlich nur noch viel Glück wünschen ! 
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2.6. Schaufensterwerbung 


Wenn Sie ein Geschäft haben und gelegentich bereit sind 
auf Ihren CPC zu verzichten, dann können Sie ihn auch ins 
Schaufenster stellen. Ihre Ehefrau wird dies wahrschein- 
lich sehr begrüßen. (Sie müssen ja auch nicht Ihre gesamte 
Freizeit am Rechner verbringen oder ...) 

Natürlich stellen Sie Ihren CPC nicht einfach so ins 
Schaufenster um den Leuten zu zeigen, daß Sie einen Com- 
puter besitzen, sondern Sie lassen ein spezielles Werbe- 
programm ablaufen. Optische Werbeträger sind schließlich 
immer ein besonderes Lockmittel. 


Die Gestaltung eines Programms zur Schaufensterwerbung muß 
interessant und auffallend sein, da eine zufällig am 
Schaufenster vorbeigehende Person dazu angehalten werden 
soll, sich die Werbeinformationen genauer anzusehen. Um 

dies zu erreichen ist es ratsam mit Farben und mit Lauf- 
schrift zu arbeiten. Gute Effekte kann man auch mit einer 
Mischung aus Graphik und Textzeilen erzielen. Dazu dienen 
die Anweisungen TAG und TAGOFF. Denkbar wäre es zum Bei- 
spiel, mit Hilfe des Programms in Kapitel 8.2 eine inter- 
essante Graphik zu erstellen und diese dann in einem Wer- 
beprogramm einzulesen, Das gesamte Programm in Kapitel 

8.2 könnte dann der Einfachheit halber als Unterprogramm 
dienen. 


= 


Im Beispielprogramm zu diesem Kapitel wird hingegen eine 
einfachere Lösung vorgestellt. Nach der großformatigen 
Ausgabe der Zahlen 1,2 und 3 (rot auf weiß), erscheint 
dreimal der Werbetext auf dem Bildschirm, zuerst auch rot 
auf weiß, dann blau-rot blinkend und schließlich blau-rot 
blinkend auf weiß-gelb blinkendem Hintergrund. Die Zahlen 
1,2 und 3 werden jeweils analog zu den Rastern definiert, 
welche in Ihrem Bedienungshandbuch aufgeführt sind. 
Während dort die Zahlen, wie auch jedes andere Zeichen, 
mit einem Punktmuster dargestellt werden, setzen sich die 
großformatigen Zahlen hier aus einzelnen Rechtecken zu- 
sammen. Diese Rechtecke werden mit Hilfe der WINDOW-An- 
wisung definiert und mit der für den Hintergrund festge- 
legten Farbe ausgefüllt. Die zeitliche Steuerung des Pro- 
grammablaufs erfolgt mit den Anweisungen TIME und AFTER. 
Während die großformatigen Zahlen jeweils eine halbe Se- 
kunde auf dem Bildschirm erscheinen, bleiben dem Betrach- 
ter jeweils fünf Sekunden für den Werbetext. Weiterhin 
kann der Benutzer vorgeben, wie lange das Programm insge- 
samt laufen soll. Zu beachten ist, daß nach dem Aufruf 
eines Unterprogramms mit dem AFTER-Statement, der Pro- 
grammablauf solange fortgesetzt wird, bis die angegebene 
Zeit abgelaufen ist. 


Der Werbetext des vorliegenden Programms kann natürlich 
beliebig geändert werden. Auch ist es möglich nicht nur 
die letzte Zeile "laufen" zu lassen. Es könnte z. B. 
durchaus interessant sein, mehrere Textzeilen nachein- 
ander in Bewegung zu setzen. Auf jeden Fall lohnt es sich, 
verschiedene Varianten durchzuspielen. 
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Programm: 


FRINT "15 - Frogramm zur | aufensterwerbung" 
FRINTEFRINTIFRINTIFRINT: FRINT+FRINT 
FRINT TAB(?7) "Bernd Kowal, 1995" 
Yo GOSUE 870 
75 FRINT'Wie lange soll der MNERTRRNEN: laufen 7" 
[NT INFUT" Stunden an 
NTa INFUT"Minuter 's;mi 
NT: INFUT"Sekunden "3 


15,1,2: INK 14,26,24 


 i=1 TO 7 

ER Hi 53 

Ti 
TIME/TOOLZE 


SOSUE 240 
3,2 GOSUB 450 
i,n GOSUR Sao 


THEN 240 


L2END 
' Die Zahl 
MODE A 
WINDOW #1,12, 
WINDOW #HE,1G, 


i 


WINDOW 

WINDOW HZ 

WINDOW HE 

WINGOW 

WINDOW #5 

WINDOM #6,8, 51,21 

WINDOW #7,24,31,18, 

FOR TO 7:CLS #i1:NEXT i 


Zahl 
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ES 
WINDE 


i 


zum Freis 
T TABCHV"BIR, 
Le: nicht toil " 


THEN 750 


“armm We teon 


eine Taste druecken ! 
% 
" THEN Pl 
UIFUN 
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Variablenliste: 


a$ = String, in dem der "laufende" Text abgelegt wird 
b$ = der "bearbeitete" String a$ 

i = Laufvariable 

mi = Minuten 

se = Sekunden 

st = Stunden 


zl 


= Zeit für eine zeitlich begrenzte Warteschleife 


ze = Zeitbegrenzung in Sekunden für den gesamten Pro- 
grammablauf 


Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70-100 : Eingabe der Dauer des Programmablaufs 


—- 38 — 


110 : Berechnung der Zeitbegrenzung in Sekunden 
für den gesamten Programmablauf. Die Funk- 
tion TIME gibt dabei die Zeit zurück, die 
seit dem Einschalten des Gerätes vergangen 
ist (Einheit: 1/300 einer Sekunde). 


Satz 120 : Die Hintergrundfarbe und die Randfarbe wird 
leuchtendweiß 


Satz 130 : PEN- bzw. PAPER-Nummern werden Farben zuge- 
ordnet 


Satz 140 : Der Bildschirm wird freigemacht 


Satz 150-170 : Die Hintergrundfarbe für die noch zu defi- 
nierenden Bildschirmbereiche wird festge- 
legt (hellrot) 

Satz 180-250 : Aufruf der Unterprogramme 
Solange die Zeitbegrenzung ze nicht er- 
reicht ist, werden die Statements in den 
Sätzen 190-240 ausgeführt. 

190-240 : Nach den vorgegebenen Zeiten wer- 
den die einzelnen Unterprogramme 
aufgerufen. Aufgrund der Warte- 
schleifen im Unterprogramm Son- 
derangebot, kann in Satz 190 auf 
die AFTER-Anweisung verzichtet 
werden. 

230-240 : Zeitabhängige Warteschleife, die 
verhindert, daß die Sätze 190-220 
abgearbeitet werden, bevor die 
Unterprogramme aufgerufen sind 


Satz 260 : Der Bildschirmmodus wird geändert (40 Zei- 
chen pro Zeile), da im Unterprogramm Son- 
derangebot mit 20 Zeichen pro Zeile gear- 
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beitet wird. Gleichzeitig wird dabei der 
Bildschirm freigemacht und das Programmende 
ist erreicht. 


Satz 270-330 : Unterprogramm zur großformatigen Ausgabe 

der Zahl 1 

270-280 : Kommentar und Änderung des Bild- 
schirmmodus 

290-310 : Es werden rechteckige Bildschirm- 
fenster definiert die zusammenge- 
setzt die Zahl 1 darstellen 

320 : Die definierten Bildschirmfenster 
werden mit der Farbe hellrot aus- 
gefüllt (vgl. Satz 150-170) 

330 : Rücksprung aus dem Unterprogramm 


Satz 340-550 : Unterprogramme zur großformatigen Darstel- 
lung der Zahlen 2 und 3. Die Vorgehensweise 
entspricht der des letzten Unterprogramms. 


Satz 560-860 : Unterprogramm "Sonderangebot" zur Ausgabe 

des Werbetextes 

560-570 : Kommentar und Umschaltung auf den 
80-Zeichen-Modus 

580-650 : In Abhängigkeit von den Zeitbe- 
grenzungsvariablen z2, z3 und z4 
erfolgt dreimal ein Sprung in das 
Unterprogramm Satz 660-860 zur 
Textausgabe. Bei der zweiten und 
dritten Verzweigung in Satz 610 
bzw. 630 wird die Farbe des Hin- 
tergrundes bzw. des Schreibstif- 
tes und des Hintergrundes (inklu- 
sive Rand) geändert. In Satz 650 
wird zum Hauptprogramm zurück 
verzweigt. 
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660-860 : Unterprogramm zur Ausgabe des 
Werbetextes. Nach der Ausgabe des 
Haupttextes (Satz 660-720) und 
der Belegung der Variablen a$ 
(Satz 730), folgt eine zeitab- 
hängige Warteschleife (Satz 740- 
750). Anschließend wird in den 
Sätzen 760-850 der Inhalt des 
Strings a$ bearbeitet und "lau- 
fend" ausgegeben. 


Satz 870-920 : Unterprogramm "Warten" 
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.7. Ideenfundgrube 


- Berechnung des Argumentes einer neuen Mehrheit beim 
einfachen Dreisatz mit direktem Verhältnis 


- Tabellen und Statistiken erstellen 


- Darstellung von Kurven und Diagrammen (Kuchen, Bal- 
ken usw.) 


- Zeichnen einer beliebigen Funktion 

- Biorhythmus, biorhythmische Partnerschaftsanalyse 
- Astrologie und Horoskop 

- Persönlichkeitstests oder IQ-Tests 

- Fragebogenauswertung 

- Adreßverwaltung, Mitgliederverwaltung 


- Stichwortkartei 


=: 40. 


Vermittlungen jeglicher Natur 


Datenbanken für beliebige Anwendungen 


Schulverwaltung: Kurswahl, Kurslisten 


Kalendererstellung 

Kursus fürs Maschineschreiben 
Sprachsynthesizer 

Darstellung von Schaltplänen 


und noch vieles mehr 
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3. Auto und Computer 


3.1. Vorbemerkung 


Gehören Sie auch zu den vielen Menschen in unserem Land 
die ein Auto besitzen? Wenn nicht, blättern Sie nicht 

direkt weiter. Die Programme in diesem Kapitel sind recht 
interessant. Einmal wird die interaktive Nutzung Ihres 
Cassetten- bzw. Diskettengerätes vorgestellt und zum an- 
deren können Sie das Programm zur Fahrtstreckenoptimierung 
auch dann einsetzen, wenn Sie beispielsweise eine Fahr- 
radtour planen. 


Der Begriff "interaktiv" sei hier kurz erläutert. Er be- 

sagt, daß vom Programm aus auf den externen Speicher Cas- 
setten- bzw. Diskettenlaufwerk zugegriffen wird, um ihn zu 
beschreiben oder um von ihm zu lesen. Sie können also In- 
formationen langfristig sichern und sich diese Informa- 
tionen jederzeit ansehen bzw. erweitern. Im weiteren Ver- 
lauf dieses Buches werden Sie noch einige Programme fin- 
den, die auf diese Art und Weise das Cassetten- bzw. Dis- 
kettengerät nutzen. 
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3.2. Benzinverbrauch - langfristig kontrolliert 


In dem Programm zu diesem Kapitel bestehen die einzugeben- 
den Informationen aus dem Benzinverbrauch Ihres Autos und 
dem dazugehörigen Datum der Messung. Dabei müssen Sie 
natürlich nicht Ihren Verbrauch auf 100 Km selbst be- 
rechnen. Selbstverständlich reicht die Angabe der ge- 
fahrenen Kilometer und der absolut verbrauchten Kraft- 
stoffmenge. Die Umrechnung auf verbrauchte Liter pro 100 
Kilometer erfolgt im Programmablauf. Und falls Sie verge- 
ssen haben sollten wie eine solche Rechnung aussieht, 

hier die Formel: 


absoluter Verbrauch * 100 


Verbrauch auf 100 Km = 
gefahrene Kilometer 


Das Ergebnis dieser Berechnung (natürlich ist es auch mög- 
lich mehrere Berechnungen hintereinander auszuführen) 
können Sie dann, neben dem dazugehörigen Datum, mit Hilfe 
Ihres Cassetten- bzw. Diskettengerätes sichern. Sie können 
natürlich auch gespeicherte Informationen einlesen und 

diese Informationsreihe (genauer: Datei) ergänzen. In ei- 

nem weiteren Schritt besteht dann noch die Möglichkeit der 
Ausgabe sämtlicher Informationen, um einen u. U. vorliegen- 
den "Verbrauchstrend" erkennen zu können. Dabei wird dann 
auch der Durchschnittsverbrauch berechnet und das entspre- 
chende Ergebnis wird ausgegeben. 
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Ein Wort noch zum Programmablauf: 

Die Auswahlmöglichkeiten für den Programmbenutzer erfolgen 
in der Regel durch ein sog. Auswahlmenü. In diesem Pro- 
gramm sind die Wahlmöglichkeiten des Benutzers anders ge- 
löst und zwar durch eine Anzahl von Fragen die mit "j" 

(für ja) oder "n" (für nein) beantwortet werden müssen. 

Es ist dabei zu beachten, daß ein einmal eingegebenes "n" 
nicht mehr rückgängig gemacht werden kann (es sei denn man 
unterbricht das Programm durch zweimaliges Drücken der 
ESC-Taste und benutzt dann die Anweisung GOTO als Kom- 
mando, damit die Daten nicht verloren gehen). Ein neuer 
Programmstart hat ja bekanntlich einen Verlust der vorher 
eingegebenen Daten zur Folge. 

Eine derartige Abfragetechnik scheint auf den ersten Blick 
weniger komfortabel zu sein als die Menütechnik. Sie hat 
jedoch den einen Vorteil, daß der Benutzer wichtige Pro- 
grammschritte - wie zum Beispiel das Sichern von Daten - 
weniger leicht vergißt, da er auf die jeweiligen Fragen 
konkret mit "j" oder "n" antworten muß, um den Programmab- 
lauf fortzusetzen. 


Programm: 


Lö REM 
=D BLE 
.& FRINT"IG = Frogramm zur langfristigen” 
40 FRINT TE ’"Eontrolie Ihres Eenzinverbrau«chs 
7 TS FRINT 
AE(113" Bernd Kowal, 


=] 


mai) uJalıı 


RINT"Sollem ne 


FIT" werden (Jj’n) 
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THEN 370 
ij" THEN 180 


ıhrene Kilometer "sgkm: FRINT 
INPUT"Ber inverbrauch in Liter ";bvsFRINT 
FRINTEFRINT" Datum 2 "Ss FRINT 
INFUT"Tag "talı) 
INFUT" Monat "amadlı) 
ET nel 2 id» FRINT 
RINTEv(ilehv&lüü’gkm - 
NT"Der Verbrauch auf 100 Kilometer 3": 
USING "HH. 4", v(i)as PRINT" Liter"sf 
\ Sollen weitere Kerte eingegel 


7,vtj,tatadymatj)d,dJatı) 


alle Werbe einmal" 


„ TAB(28) "Datum" PRINT 
Mr" vCjdss PRINT" Liter ", 


"alle, 
"4. 


ist ein due herittl 
2 "USING Be" 5 


= Er INTIFRINT'"Ende des Frogramms"+HEND 


druecken' 
I 570 
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Variablenliste: 


a$ = Antwortstring (j/n) 


bv = absoluter Benzinverbrauch 
gkm = gefahrene Kilometer 

i = Laufindex 

J = Laufindex 

Ja(i) = Jahr 

mo(i) = Monat 

sv = Summationsfeld für v(i) 
ta(i) = Tag 


v(i) = Verbrauch auf 100 Kilometer 


Programmbeschreibung: 


Satz 10- 70 : Überschrift 


Satz 80 : Für die indizierten Variablen wird Platz 
reserviert 


Satz 90-120 : Erste Frage "Einlesen" 
Diese Frage wird (wie auch die folgenden 
Fragen) wiederholt ausgegeben, wenn weder 
"j" noch "n" eingegeben wird. Bei der Ein- 
gabe von "n" wird zur nächsten Frage (Satz 


180) verzweigt. 
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: Die Eingabedatei "Benzinv." wird eröffnet 
und der Laufindex i wird gleich 1 gesetzt 


: Die gespeicherten Informationen werden ein- 
gelesen 


: Ist das Dateiende erreicht (dann ist EOF = 
-1), wird zum Satz 170 verzweigt 


: Der Laufindex i wird um 1 erhöht und es 
wird zum Einlesen weiterer Daten zurückver- 
zweigt zum Satz 140 


Satz 170 : Die Eingabedatei wird geschlossen 


Satz 180-210 : Die zweite Frage "Eingeben" 


Satz 220 : Der Laufindex ıi wird eröht 


Satz 230-280 : Die gefahrenen Kilometer, der absolute Ben- 
zinverbrauch und Angaben bezüglich des Da- 
tums werden angefordert 


Satz 290-310 : Der Verbrauch auf 100 Kilometer wird be- 
rechnet und das Ergebnis wird auf zwei De- 
zimalstellen genau ausgegeben 


Satz 320-360 : Abfrage bezüglich der weiteren Eingabe, Lö- 
schen des Bildschirms und ggf. Verzweigung 
zum Satz 220 


Satz 370-420 : Die dritte Frage "Sichern" (die Sätze 320- 
360 gehörten sozusagen zur zweiten Frage) 


Satz 430-470 : Die Ausgabedatei "Benzinv." wird eröffnet, 
Informationen werden peripher gespeichert 
(es befinden sich jeweils i verschiedene 
Werte im Arbeitsspeicher des Rechners) und 
die Ausgabedatei wird wieder geschlossen 
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Satz 480-510 : Die vierte Frage "Ergebnisse" 
Satz 520 : Ausgabe der Tabellenüberschrift 


Satz 530-590 : Die Verbrauchswerte werden mit dem zuge- 
hörigen Datum formatiert ausgegeben. Nach 
15 Ausgaben erfolgt ein Sprung ins Unter- 
programm Warten, da die Ergebnisse anson- 
sten über den oberen Bildschirmrand hinaus 
wandern würden. Im Feld sv (Satz 590) wer- 
den die einzelnen Verbrauchswerte aufsum- 
miert, um später das arithmetische Mittel 
aller Verbrauchswerte berechnen zu können. 


Satz 600-620 : Berechnung des arithmetischen Mittels und 
Ausgabe des Ergebnisses 


Satz 630 : Programmende 


Satz 640-680 : Unterprogramm "Warten" 


Programmergebnisse: 


Werden nach dem Programmstart Werte eingelesen und/oder 
eingegeben (und evtl. natürlich direkt abgespeichert), so 
könnte der Ergebnisausdruck auf dem Bildschirm folgender- 
maßen aussehen: 


Verbrauch Datum 


8.05 Liter 1. 2.85 
8.55 Liter 9. 2.85 
8.13 Liter 20. 2.85 
7.81 Liter 1. 3.85 


Das ist ein durchschnittlicher 
Verbrauch von : 8.14 Liter 
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3.3. Fahrtstreckenoptimierung 


Und wieder steht das Auto im Mittelpunkt unserer Überle- 
gungen. Es geht auch wieder um Kraftstof bzw. Energie, 
diesmal jedoch in indirekter Form. 

Kernpunkt dieses Kapitels ist die Planung einer Tour. Vor- 
gegeben werden einzelne Orte, die Sie anfahren wollen 
(bzw. müssen, wenn Sie beruflich im Außendienst tätig 
sind) und die Entfernungen zwischen diesen Orten. Ihr CPC 
sagt Ihnen dann, welche Orte Sie nacheinander anzufahren 
haben, um möglichst wenige Kilometer zurückzulegen. Es 
geht also darum, die Energie Ihres Autos und auch Ihre 
Energie sinnvoll einzusetzen. 


Nun ist es allerdings nicht so einfach, einen geeigneten 
Algorithmus (Rechenvorgang, der nach einem bestimmten sich 
wiederholenden Schema abläuft) zur Lösung dieses Problems 
zu finden. Vielleicht werden Sie sagen, daß Ihr Computer 
alle Möglichkeitem der Anordnung berücksichtigen sollte. 
Das wäre auch im Falle der Eingabe weniger Orte richtig. 
Zum Beispiel gibt es bei der Eingabe von 3 Orten a,b und c 
(der Ausgangsort wird dabei nicht variiert) 2 verschiedene 
Möglichkeiten der Anordnung: a-b-c und a-c-b. Werden 4 
Orte a,b,c und d eingegeben, gibt es 6 verschiedene Mög- 
lichkeiten, nämlich: a-b-c-d, a-b-d-c, a-d-b-c, a-d-c-b, 
a-c-b-d und a-c-d-b. 


Diese Anordnungen unterscheiden sich nur nach der Stellung 
der Elemente (bzw. Orte). Die Anzahl der Anordnungen von 
n Elementen, d. h. die Anzahl der verschiedenen Möglich- 
keiten die n vorgegebenen Orte anzufahren, ist gleich n! 
(n!=1*2*3*..* n). Wollen Sie beispielsweise 10! 
berechnen, so erhalten Sie: 10! = 3628800. Eine Berück- 
sichtigung wirklich aller Möglichkeiten hätte daher bei 

der Eingabe mehrerer Orte enorme Rechenzeiten zur Folge, 
die sicherlich nicht mehr zu vertreten wären. 


Man kommt in der Regel ebenfalls zu einem vernünftigen Er- 
gebnis, wenn man nacheinander von einem Ort zum jeweils 
nächstliegenden Ort fährt. Will man, von Hamburg losfah- 
rend, die Orte Hannover, Düsseldorf, Köln, Frankfurt und 
München besuchen, so kommt man sehr leicht zu der rich- 
tigen Anordnung HH - H- D-K-F-M. Nun kann es aber 
sein,daß z. B. 4 Orte wie folgt im Raum verteilt sind: 


A 
D 


c 


Von A ausgehend käme man zu der Anordnung A-B-C-D, 
obwohl die Anordnung A - C - B - D günstiger ist. 

Daher wird in dem folgenden Programm der Möglichkeit Rech- 
nung getragen, daß es jeweils, d. h. bei jeder Zuordnung 

eines Ortes zu den schon in eine Reihenfolge gebrachten 

Orten, günstiger sein kann, nicht zuerst den nächstliegen- 

den Ort, sondern erst einmal den zweitnächsten Ort anzu- 
fahren. 

Im Programmablauf werden somit n-1 (n = Anzahl der einge- 
gebenen Orte, einschließlich des Ausgangsortes) Fahrt- 

strecken miteinander verglichen und die günstigste Alter- 
native wird als Ergebnis ausgegeben. 
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Bezogen auf das obige Beispiel würden die folgenden An- 
ordnungen überprüft: 


Der an zweiter und dritter Stelle stehende Ort ist also 
jeweils einmal nicht der nächste, sondern der zweitnäch- 

ste Ort. 

Dieser Algorithmus findet in der Regel die für Sie gün- 
stigste Tour und befreit Sie damit von der - insbesondere 
wenn viele Orte anzufahren sind - mühevollen Arbeit, hand- 
schriftlich die beste Route auszuknobeln. 


Programm: 


10 REM 17 

20 GLS 

a0 FRINT"TI? Frogramm zur Fahrtstrecken-" 

45 FRINT TAR(S) "optimierung" 

50 FRINTE:FRINT:FRINT 

6 FRINT TAB(11) "Bernd Kowal, 1985" 

76 GOSUE 520 

80 FRINT"Wieviele Orte sullen 1sgesamt be-" 

959 INFUT"ruecksichtigt wer« ; 

100 DIM h&{n), in’ ,o#Fin) ,„elin,n),„fsin) 
FRINT"Bilte geben Sie die Ürtsnamen bzw." 
FRINT"ein Ort ennzeichen ein :":FRINT 

NFUT" Zumaechst der Ausgangsort IECLISFRINT 
' i=2 TOn 
NT i5;:INFUT".ter Ortsname "ıoFti) 
> NEXT isCLS 

FRINT"Geben Sie bitte folgende Entfernungen" 

FRINT"in Kilometern an :":FRINT 

FOR i=1 TO n-1 

F j=ei+1 TO n 


FRINT oFti)s"-"soFftı) ,n INFUT eli,ı) 
@{j,i) (2,3) 

NEXT J:NEXT i:CL5 

FOR u=l TO n-1 


;E(k)en#lij) TMEN } 
NEXT k 
iF efi,j)iknm THEN kw=etli,j):ig=) 
NEXT 5 
IF u=l AND kreü THEN eli,g}=10”2ü 
sftil)=oF(n) 

vztfslu) tk 

n THEN i=qr1l=1+1:50T0 270 

us>l THEN 410 
FOR i=l TO nıshFti)=sFtli)s NEXT i 
sets (u) G0OTO 440 
IF fsctu)! THEN 440 
FÜR 0 TO nsh&(i)=sEFEii)s:NEXT i 


) FRINT"Folgende Strecke ist optimal s":FRINT 


FOR i=1 TO n 
IF 
PRINT hetidg"- 
NEXT i 
FRINT:FRINT"Das sind"s fs; "Eilometer. " 
FRINT:FRINT:FRINT"Ende der Berechnungen"sEND 
FEM UF Warten 
LOCATE 7,25 
BE) DISEE eine Taste druecken !" 


" THEN 550 
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Variablenliste: 


e(i,j) = die Entfernung zwischen jeweils zwei Orten 


fs = Anzahl der Kilometer für die optimale Fahrt- 
strecke 


fs(i) = Anzahl der Kilometer für eine Fahrtstrecken- 
alternative 


h$(i) = die Orte in der optimalen Rangreihe 
i = Laufindex 
J = Laufindex 


k = Laufindex 


kr = Kontrollvariable für die Zuordnung des zweit- 


nächsten Ortes 


kw = kürzeste Entfernung eines Ortes zu einem noch 
nicht zugeordneten Ort 


l = Laufvariable für die jeweils (für jede Fahrt- 
streckenalternative) erfolgenden n-1 Zuordnungen 


n = Anzahl der Orte 
o$(i) = die eingegebenen Ortsnamen 


q = Index für die Zuordnung des nächsten bzw. zweit- 
nächsten Ortes 


s$(i) = die für jede Fahrtstreckenalternative in eine 
Rangreihe gebrachten Orte 


u = Laufvariable für die n-1 Fahrtstreckenalter- 
nativen 
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Programmbeschreibung: 


Satz 10- 70 : Überschrift 
Satz 80- 90 : Die Anzahl der Orte wird eingegeben 


Satz 100 : Für die indizierten Variablen wird Spei- 
cherplatz reserviert 


Satz 110-160 : Eingabe der Ortsnamen 


Satz 170-230 : Eingabe der Entfernungen 
In Satz 220 wird eine Entfernung e(i,j) 
gleich der nicht eingegebenen Entfernung 
e(j,1) gesetzt, da in der Schleife Satz 
280-330 die Laufvariable j, unabhängig von 
der Größe der Variablen i, von I bis n 
läuft. 


Satz 240 : Eröffnung der Programmschleife für die n-I 


Fahrtstreckenalternativen 


Satz 250 : Die Variable s$(i) wird für die neue Fahrt- 
streckenalternative von den alten Zuord- 
nungen "befreit" 


Satz 260-270 : Belegung der Variablen i,l,s$(1) und kw 
(s$(1) = Ausgangsort o$(1)). Für die Varıa- 
ble kw wird ein willkürlich gewählter, sehr 
hoher Wert angenommen (10#30), der bei den 
Entfernungsangaben nicht erreicht werden 
darf. 


Satz 280-330 : Die kleinste Entfernung eines Ortes i zu 
einem "noch nicht angefahrenen Ort" j wird 
gesucht und im Feld kw zwischengespeichert. 
Welcher Ort j zugeordnet wurde, wird im 


Feld q registriert. In den Sätzen 290-310 
wird untersucht, ob der aktuelle Ort j 
schon zugeordnet bzw. "angefahren" worden 
ist. 


Satz 340 : Im ersten Durchgang werden jeweils die kür- 
zesten Entfernungen gesucht (dann ist u=1 
und I immer größer u). Die folgenden Durch- 
gänge sind dadurch gekennzeichnet, daß an 
immer wechselnden Stellen (in Abhängigkeit 
von u und I) die gefundenen kürzesten Ent- 
fernungen e(i,q) gleich 10130 gesetzt wer- 
den, um dann erneut die kürzeste Entfernung 
(das ist dann natürlich die zweit-kürzeste, 
da die kürzeste Entfernung mit dem Wert 
10130 belegt wurde) zu suchen. Die Kon- 
trollvariable kr dient dazu, diesen Prozeß 
nur einmal zu durchlaufen. 


Satz 350-360 : Der gefundene Ort wird im Feld s$(l) zwi- 
schengespeichert und die gefundene Entfer- 
nung in Kilometern wird zu dem Wert im Feld 
fs(u) hinzuaddiert. 


Satz 370 : Ist I<n, so wird der Zuordnungsprozeß je 
Fahrtstreckenalternative fortgesetzt 


Satz 380-400 : Beim ersten Durchgang (dann ist u=1) wird 
die gefundene Fahrtstrecke zu späteren Ver- 
gleichszwecken (Satz 410) als optimal ange- 
sehen (Belegung der Variablen h$(i) und fs) 


Satz 410-430 : Die Kilometeranzahl der gefundenen Fahrt- 
streckenalternative wird mit dem entspre- 
chenden Wert des vorangegangenen Durchgangs 
verglichen. Gegebenenfalls werden die 
Variablen h$(i) und fs mit neuen Werten 
belegt. 
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Satz 440 : Die Kontrollvariable kr wird gleich O0 ge- 
setzt und es erfolgt ein euer Durchgang 
(ab Satz 240) 


Satz 450-500 : Ergebnisausgabe 


Satz 510 : Programmende 


Satz 520-570 : Unterprogramm "Warten" 


Programmergebnisse: 


Gehen wir von 6 Orten mit folgender geographischer Lage 
(D ist der Ausgangsort) 
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und den exakten Entfernungen 


so erhalten wir nach den entsprechenden Eingaben: 


Folgende Fahrtstrecke ist optimal: 
D-A-F-E-C-B 


Das sind 104 Kilometer. 


Im Verleich zu den vorangegangenen Programmen ist die er- 
höhte Rechenzeit auffallend. Wenn Sie dieses Programm für 
relativ viele Ortseingaben laufen lassen, müssen Sie schon 
etwas Geduld mitbringen. 
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3.4. Autokosten - fest im Griff 


In Kapitel 7.2 dieses Buches finden Sie ein recht allge- 
mein gehaltenes Programm zu den Haushaltskosten. Da Sie 
dort selbst Kategorien bilden können, denen dann einzelne 
Ausgaben zuzuordnen sind, läßt sich dieses Programm auch 
für den Bereich Autokosten verwenden. Als Kategorien kom- 
men zum Beispiel in Frage: Versicherung, Steuern, Benzin- 
kosten, Reparaturen, Pflege und Wartung, Abschreibungen, 
usw. usf. Wollen Sie dieses Programm ausschließlich für 
Ihre Autokosten verwenden, ist eine Programmerweiterung 
bezüglich der Kosten pro gefahrenen Kilometer sinnvoll. 
Es gibt verschiedene Möglichkeiten, Kilometerangaben in 
diesem Programm unterzubringen: 


1) Kilometereingabe bei Bedarf, durch einen gesonderten 
Programmteil, der vom Menü aus aufrufbar ist 


2) Eingabe des Kilometerstandes bei jeder Geldausgabe 


3) Bei der Eingabe eines Zeitraumes für den Programmteil 
"Berechnungen" wird ein Wert für die gefahrenen Kilo- 
meter angefordert und die Kosten pro Kilometer werden 
direkt anschließend ausgegeben 


=:61:= 


Die erste Möglichkeit hat den Nachteil, daß im Programm- 
teil "Berechnungen" nicht immer die wirklich gefahrenen 
Kilometer eingehen werden, da der Kilometerstand nicht bei 
jeder Eingabe aktualisiert wird. Diesen Nachteil hat die 
zweite Möglichkeit zwar nicht, dafür ist es aber sehr un- 
wahrscheinlich, daß Sie den Kilometerstand Ihres Autos 
immer im Kopf haben. Die dritte Möglichkeit ist programm- 
technisch am einfachsten einzufügen und weist auch nicht 
die genannten Nachteile auf. Sie müssen sich dann den Wert 
der gefahrenen Kilomater nur anderweitig merken. Gerade in 
bezug auf Autokosten ist es aber sowieso sinnvoll, im Pro- 
grammteil "Berechnungen" Jahres- oder Halbjahreszeiträume 
anzugeben, da z. B. Steuern und Versicherungsbeiträge auch 
nur jährlich oder halbjährlich anfallen. 


Um auf diese Art und Weise das Haushaltskostenprogramm um- 
zuschreiben, müssen Sie folgende Programmzeilen einfügen: 


INTEPRINTEFRINTkheviel Hilometer haben 5 
N - ? kr nn regt ice) ea alem 


Kilometer berocenm" 


IT ALLF chen 


P e EA 
Kersten on 


u 


"EM ooro Kin. 


Hierbei wird nur der Satz 1400 überschrieben. Auf den Kom- 
mentar "Ich rechne" läßt sich aber auch leicht verzichten. 


Ansonsten ist Ihnen viel Spaß bei der Nutzung des Pro- 
gramms zu wünschen. Und ... fallen Sie nicht vom Hocker, 
wenn Sie sehen wieviel Sie für Ihr Vehikel ausgeben... 


= 


3.5. Ideenfundgrube 


- Simulation der Fahrt eines 700 PS starken Porsche 
935 über den neuen Nürburgring 


exakte Dokumentation eines Rennverlaufs (der Wagen- 
durchlauf kann dabei mit Lichtschranken erfasst 
werden) 


Autos aus dem Computer (Design, elektronisch ge- 
steuerte Prüfstände, Dauerprüfungen im Simulator) 


Verkehrstrainer (Bewältigung von simulierten Ver- 
kehrssituationen) 


Fahrschule: Schüler, Stunden, Kassenbuch und Tages- 
nachweis 


- Datenbank für Auto-Vergleichsdaten (Höchstgeschwin- 
digkeit, Beschleunigung, Testergebnisse etc.) 


- Ortskenntnisprüfungen mit dem Computer 


- und noch vieles mehr 


- 63 — 


-64 - 


4. Geld und Kredit 


4.1. Vorbemerkung 


Wenn’s ums Geld geht ... dann hört für viele der Spaß auf, 
und die meisten wollen alles ganz genau wissen. 

Sparkassen und Banken setzen schon lange Rechner ein, um 
auch komplizierte Dinge schnell und zuverlässig auszurech- 
nen. Sie als Kunde sind da häufig auf die Angaben des 
Geldinstituts angewiesen, wenn es zum Beispiel um die Auf- 
nahme eines Kredits geht. Und diese Angaben können schon 
verwirrend oder von Institut zu Institut verschieden sein, 

so daß ein Vergleich der Angebote recht schwierig sein 
kann. Daher ist es nur angemessen, wenn wir in diesem Ka- 
pitel die Chancengleichheit für den Bankkunden verbessern 
wollen. 

Natürlich sind die hier vorgestellten Probleme und Pro- 
gramme nicht mit der umfangreichen Software großer Geld- 
institute zu vergleichen; dennoch sind sie auf jeden Fall 
hilfreich, wenn sich Ihre Geldausgaben und -einnahmen 
nicht immer decken, und Sie darauf angewiesen sind, einen 
Kredit aufzunehmen oder Ihr Geld zinsgünstig anzulegen. 
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4.2. Die Zinsrechnung 


Die Grundlage des ganzen Bereichs "Geld und Kredit" ist 

die Zinsrechnung. Rein mathematisch ist das natürlich eine 
vergleichsweise einfache Angelegenheit. Der eine oder an- 
dere Leser wird aber unter Umständen nicht mehr so genau 
wissen, wie die elementaren Größen der Zinsrechnung be- 
rchnet werden. Daher dient das folgende Programm mehr der 
Einübung des Umgangs mit diesen Größen, als der prakti- 
schen Anwendung bezüglich Ihrer Finanzplanung. 


Die folgenden Berechnungsformeln liegen dem Programm zu- 
grunde: 


Kapital * Zeit * Zinssatz 
Zins = 
100 


Zins * 100 
Kapital = 
Zinssatz * Zeit 


Zins * 100 
Zinssatz = 
Kapital * Zeit 
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Zins * 100 


Kapital * Zinssatz 


Die Angabe der Zeit erfolgt hier in Jahren. Ein Jahr hat 
dabei 360 Tage oder 12 Monate zu je 30 Tagen. Wollen Sie 
Monate und/oder Tage berücksichtigen, so müssen Sie diese 
entsprechend umrechnen. 


Programm: 


INT"ISB = Frogramm zur rechnung" 
TAB(5} "der Zinsen,des atz 
- Kapitals oder * Zeitdauer ' 
Kapitalueberlassung" 


Fü 

TAEtLE3 " Auswahlmenue"”s PRINT:FRINT 
"RINT'"Was rechne werden ”":FRIN 
FRINT TAB "Eingabe": FRINT 
FRINT" Zinsen", TABR( '1"=FRINT 
FRINT"Zine 2", TABC "ZISFRINT 
FRINT" "aFRINT 
FRINT"D HKapital-" 

” sung", TAB) "4" 
TS FRINT:FRINT: INFUT" Ihre Wahl"sa 

OR a=4 THEN CLS:59TO 100 

ELS5:FRINT"Eingabe der bekannten Groessen :": PRINT 
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IF aX>i THEN INFUT"Zinsen (in DM) 

IF & ? THEN INFUT" Zinssatz (in Frozent) 
IF a& THEN INFUT"EHapital (in DM) 

IF & + THEN INPUT" Zeitdauer (in Jahren) 
FRINTSFRINT 

IF a>ı THE 


';Zds "Jahren bringt das Kapital 
FRINT Zi; "DM an Zinsen." 


Zinssatz betraegt";Zsy" 


Kapital belaeuft sich auf"s;ka "DM." 


"Tahreu 
j/m) 


INT: PRINT"Dann eben nicht 1" 


A ur War &, r 
eine T 


THEN 490 
ETURN 
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! 


af 


Variablenliste: 


a = Antwortvariable bei der Menüauswahl 
a$= Antwortstring (j/n) 

K = Kapital 

Zd = Zeitdauer der Kapitalüberlassung 

Zi = Zins 


Zs = Zinssatz 


Programmbeschreibung: 


Satz 10- 90 : Überschrift 
Satz 100-190 : Menüauswahl 


Satz 200-250 : Es werden Werte für die bekannten Größen 
angefordert 


Satz 260-400 : Die unbekannte Größe wird berechnet und das 
Ergebnis wird ausgegeben 


Satz 410-440 : Verzweigung zur Menüauswahl, wenn noch eine 
Berechnung durchgeführt werden soll. Anson- 
sten wird ein Kommentar ausgegeben. 


Satz 450 : Programmende 
Satz 460-510 : Unterprogramm "Warten" 
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Programmergebnisse: 


Geben wir bei der Menüauswahl eine 1 ein, so werden da- 
raufhin Werte für den Zinssatz, für das Kapital und für 
die Zeitdauer angefordert. Nehmen wir einen Zinssatz von 
8.95%, ein Kapital von 347,- DM und eine Zeitdauer von 4 
Jahren, so meldet der Rechner: 


Nach 4 Jahren bringt das Kapital 
124.226 DM an Zinsen. 


Noch eine Berechnung (j/n) ? 


4.3. Ihr Geld auf Ihrem Sparkonto (Zinseszinsrechnung) 


Bringen Sie einen bestimmten Kapitalbetrag zu einer Bank, 
so werden nach Ablauf eines Jahres Zinsen zu dem Kapital- 
betrag hinzuaddiert. Im darauffolgenden Jahr - und dies 

ist im letzten Kapitel nicht berücksichtigt worden - wer- 
den die schon angefallenen Zinsen wiederum verzinst (Zin- 
seszinsrechnung). Insofern ist das Programm im vorange- 
gangenen Kapitel für praktische Anwendungen weniger ge- 
eignet. Hingegen rechnet Ihnen das hier vorliegende Pro- 
gramm genau aus, wie sich Ihr Geld auf Ihrem Sparkonto 
"entwickelt", wie es sich also vermehrt. Sie müssen nur 
einen Ausgangsbetrag und einen beliebigen Zinssatz vorge- 
ben. Als Ergebnis erhalten Sie dann den Endbetrag nach 
einer beliebigen Anzahl von Jahren. 


Programm: 


INT TAB (6) "Zine zinsen bei 
INT TAEG) "Zi hlung und g 
60 FRINT TAE(S) "Anfangskapital" 
70 FRINT:FRINTSFRINT 
RINT TAEX11} "Bernd Kowal, 1985" 
90 308 SUE Mal 


j E lie " Zinssate 
PRINT"Dauer der Kapital-'" 
INPUT "ueberi ng in Jahren 


I N T" Jahr Zins 
i TO 


USING "HHlbleH "sis 
USING "HH ; 
USTNG HH SE 


THEN 1=#j+l: je#jr2Or:GOSLUB Bau 


eine @ druecken 


EN 290 


TO 


Kapital" 


Variablenliste: 


Ak = Ausgangskapital 
Ek = Endkapital 
Laufindex 
Hilfsvariable, die eine Programmunterbrechung bei 
vollem Bildschirm ermöglicht 
variabler Schleifenanfangswert 
= Zinsbetrag pro Jahr 


= Zeitdauer der Kapitalüberlassung 


= jährlicher Zinssatz in Prozent 


Programmbeschreibung: 


Satz 10- 90 : Überschrift 
Satz 100-130 : Anforderung der Ausgangsdaten 


Satz 140 : Der Schleifenanfangswert wird auf I - und 
die Hilfsvariable j auf 20 gesetzt 


Satz 150 : Der Bildschirm wird geräumt und eine Ta- 
bellenüberschrift wird ausgegeben 


Satz 160-240 : Für jedes Jahr wird der Zinsbetrag und das 
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Endkapital berechnet und die Ergebnisse 
werden formatiert ausgegeben. Nach der Aus- 
gabe einer Ergebniszeile wird aus dem be- 
rechneten Endkapital das Ausgangskapital 

für die nächste Periode (Satz 220). 

Satz 230 dient der Programmunterbrechung 
nach 20 Perioden (Unterprogramm "Warten"). 
In diesem Falle wird auch der Schleifenan- 
fangswert | entsprechend geändert. 


Satz 250 : Programmende 


Satz 260-310 : Unterprogramm "Warten" 


Programmergebnisse: 


Bei einem Anfangskapital von 1000,- DM, und einem jähr- 
lichen Zinssatz von 4.8% und einer Zeitdauer von 10 
Jahren, ergibt sich: 


Jahr Zins Kapital 


1 48.00 1048.00 
2 50.30 1098.30 
3 52.72 1151.02 
4 55.25 1206.27 
5 57.90 1264.17 
6 60.68 1324.85 
7 63.59 1388.45 
8 66.65 1455.09 
9 69.84 1524.94 
10 73.20 1598.13 
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4.4. Der effektive Jahreszins 


Wenn Sie bei einem Geldinstitut nach Kreditkonditionen 
fragen, werden Ihnen die Berater die unterschiedlichsten 
Angebote unterbreiten. Ohne Effektivzinsangaben ist das 
Vergleichen der Angebote schwer, für den Laien sogar oft 
unmöglich. Der Effektivzins gibt nämlich Auskunft darüber, 
welches Kreditangebot das günstigere ist. 

Selbstverständlich berechnen die Kreditinstitute für ihre 
interne Kalkulation einen Effektivzins. Jedoch verhalten 
sich einige Banken ziemlich zurückhaltend, wenn es darum 
geht, diesen Effektivzins auch ihren Kunden zu nennen. Sie 
als Bankkunde haben dann das Nachsehen. 


Was ist denn nun genau der Effektivzins und wie läßt er 
sich berechnen? 


Im Effektivzins sind alle Preisbestandteile eines Kredits 
enthalten. Er ist sozusagen eine Maßzahl für den Preis ei- 
nes Kredits. Dabei werden sämtliche Kreditkosten in Pro- 
zent zur je einjährigen Nutzung des tatsächlich ausge- 
zahlten Betrags ausgewiesen. 


Bis zum 1.1.1981 war die Berechnung des effektiven Jahres- 
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zinses recht unproblematisch. Die Gleichung für Kreditver- 
träge, die vor dem 1.1.1981 abgeschlossen wurden, sieht 
folgendermaßen aus: 


24 * (Monatszinssatz * Laufzeitmonate + b) 
e= 
Laufzeitmonate + 1 


Dabei ist: 
e = Effektivzinssatz in % p. a. 


b = Bearbeitungsgebühr in % vom ursprünglichen Kredit- 
betrag 


Seit dem 1.1.1981 wird zur Berechnung des effektiven 
Jahreszinses die "360-Tage-Methode" angewandt. Mit Hilfe 
folgender Gleichung wird seither der effektive Jahreszins 

bei einem Kredit mit monatlicher Ratenzahlung und Pro- 
Monats-Zinsberechnung (bezogen auf den aufgenommenen Kre- 
ditbetrag) berechnet: 


b 
1 + ) 
100 g) 
12 11, * (q - 1) + asEla;) ne 
i.2 24 m 
1477 *] 


Dabei ist: 


e = gesuchter Effektivzins in % p. a. (=100*i) 


i = e/100 
q=l+i 


M = Laufzeit in Monaten 
= Anzahl der vereinbarten Monatsraten (=12*J+m) 


J = Laufzeit in vollen Jahren 
= Vorkommensanteil von M/12 


m = restliche Laufzeit in Monaten =M - 12 *J 


p = nomineller p. M.-Zinssatz in % vom ursprünglichen 
Kreditbetrag 


b = Bearbeitungsgebühr in % vom ursprünglichen Kredit- 
betrag 


Diese Gleichung läßt sich nicht in die Form Effektivzins 

e =... bringen. Abgesehen von recht anspruchsvollen 
mathematischen Näherungslösungen ist e nur durch mehr- 
faches Probieren zu bestimmen. Nicht umsonst werden im 
Bankgewerbe Computer eingesetzt (oder Tabellenwerke mit 
rund 6000 Seiten), um den Effektivzins zu ermitteln. 
Während die alte Formel den Vorteil hatte, daß auch Nicht- 
Mathematiker mit ihr umgehen konnten, liefert die neue 
Methode einfach genauere Ergebnisse. 


Mit Unterstützung Ihres CPC und einem geeigneten Programm 
ist die Bestimmung des effektiven Zinssatzes gar nicht 

so schwierig. Dabei gehen wir von folgender Überlegung 

aus: 

Bringen wir die links vom Gleichheitszeichen stehenden 
Terme auf die rechte Seite (dadurch ändern sich bekannt- 

lich die Vorzeichen), so erhalten wir eine Gleichung der 

Form 


Setzen wir nun verschiedene Werte für e ein, so ist der 
gesamte Ausdruck rechts vom Gleichheitszeichen kleiner als 
0, wenn der eingesetzte Wert für e zu klein ist. Er ist 
größer als O0, wenn wir einen zu großen Wrt gewählt haben. 


In dem folgenden Programm werden daher immer größere Werte 
für e eingesetzt, so lange, bis der Ausdruck rechts vom 
Gleichheitszeichen größer als O0 ist. Dann werden zur nä- 
heren Lokalisierung des wahren Wertes für e immer kleinere 
Intervalle und Schrittweiten für die Versuchswerte ange- 
nommen, so daß letztendlich ein auf 4 Stellen (hinter dem 
Dezimalpunkt) genaues Ergebnis herauskommt. 

Eine derartige Vorgehensweise ist quasi nur mit einem Com- 
puter möglich. Ansonsten wäre der Zeitaufwand unverhält- 
nismäßig groß. Vorgeben müssen Sie im Programmablauf le- 
diglich Werte für die Größen M,p und b der obigen Glei- 
chung. 


Programm: 


- Frogramm zur Ber 
INT T "effektiven Jahreszx 
RINT:FRINT:FRINT 
FRINT TAB(i1) "Bernd Kowal, 1985" 
OSUE 10 
{INT"Anzahl der vereinbarten" 
5 "smsFRINT 
ins z in 4 vom” 


JT"urspruenglichen Kreditbetrag ";p:sFRINT 
'NT"Bearbeitungsgebuehr in % vom" 
INFUT"ur r ıglichen Kreditbetrag 
140 IF m=ÖO OR p: THEN C1.5:50T0 80 
150 FRINTEFRINT INT=FRINT 


bh 


= 78 = 


/160:g=l+i1:2J=FIX (m/12)irmem-12%#j 
(i+rb/1O0) /mtp/ 150 =(2"j 
-(12/i1+11/2) #(q”jm1) 

ze (14 (em) /24#iderm/ Oltrem/ 128) 

/inl#+n2d-lt 

i vg>Ö6 THEN GOSUE 2830:560T0 170 

NEXT e 

FRINT'"Effektiver Jahreszins :":FRINT 

"SUSING "HH HHHH" Je; : FRINT"%" 


INT: FRINT"Ende der Eerechnungen"sEND 


e:ıs=s/10 


THEN 250 


" 


Taste druecken ! 
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Variablenliste: 


b = Bearbeitungsgebühr 

e = gesuchter Effektivzinssatz 
i = e/100 

J = Laufzeit in vollen Jahren 


kl = Anfangswert der Programmschleife (untere Intervall- 
grenze) 


k2 = Endwert der Programmschleife (obere Intervallgren- 
ze) 


lt = linker Teil der Berechnungsformel (links vom 
Gleichheitszeichen) 


m = Laufzeit in Monaten 


nl = erster Summand des Nenners (rechts vom Gleichheits- 
zeichen) 


n2 = zweiter Summand des Nenners (rechts vom Gleich- 
heitszeichen) 


p = nomineller p. M.-Zinssatz 

q=lH+i 

rm = restliche Laufzeit in Monaten 

s = Schrittweite der Programmschleife 

vg = Vergleichswert (größer oder kleiner als 0) 


z = Zähler (rechts vom Gleichheitszeichen) 
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Programmbeschreibung: 


Satz 10- 70: Überschrift 
Satz 80-130 : Die Ausgangswerte werden angefordert 


Satz 140 : Wiederholung der Werteanforderung, wenn für 
m oder p eine 0 eingegeben wird 


Satz 150 : Vier Leerzeilen werden ausgegeben 


Satz 160 : Anfangs-, Endwert und Schrittweite der Pro- 
grammschleife werden jeweils mit einem Aus- 
gangswert belegt 


Satz 170-240 : Programmschleife zur Berechnung des aus 
allen Termen der Berechnungsformel be- 
stehenden Vergleichswertes vg für alterna- 
tive Werte e (e ist der Laufindex der 
Schleife). 

Ist in Satz 230 der Vergleichswert größer 

als 0, erfolgt ein Sprung ins Unterprogramm 
(Satz 280), um Anfangs- und Endwert (welche 
als Intervallgrenzen aufzufassen sind) und 
Schrittweite der Programmschleife zu ver- 
ändern. Weiterhin wird in diesem Fall zum 
Satz 170 verzweigt (neuer Schleifendurch- 
lauf). 


Satz 250-260 : Ergebnisausgabe 


Satz 270 : Programmende 


Satz 280-300 : Unterprogramm zur Neubelegung der Variablen 
kl,k2 und s. Die Werte für kl und k2 werden 
so gewählt, daß zwischen kl und k2 der 
wahre Wert für e liegen muß (beim Schlei- 


fendurchlauf für e-s war vg noch negativ!). 
In Satz 290 befindet sich ein Kriterium 
für den Programmabbruch. 


Satz 310-360 : Unterprogramm "Warten" 


Programmergebnisse: 


Geben wir nach dem Programmstart die Werte 50 (Anzahl der 
Monatsraten), 0.5 (nomineller p. M.-Zinssatz) und 1 (Bear- 
beitungsgebühr in %) ein, so erhalten wir folgendes Er- 
gebnis: 


Effektiver Jahreszins : 
e=12.0329 % 


Mit der alten Formel ermitteln wir hingegen einen gering- 
fügig höheren Effektivzins: 


24 *(0.5*50 +1) 


50+1 
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4.5. Schulden und ihre Tilgung (Tilgungsplan) 


Auch in diesem Kapitel geht es um das Thema Schulden. 
Wollen Sie beispielsweise einen Kredit vn nominal 

100000 DM aufnehmen, berechnet Ihnen Ihre Bank in der Re- 
gel ein Disagio. Das Disagio (auch Damnum genannt) muß 
zwar verzinst und getilgt werden, es wird aber nicht aus- 
gezahlt, sondern als eine Art Gebühr von Ihrer Bank einbe- 
halten. Sie müssen also bei der Berechnung der Zinsen und 
der Tilgung von der Nominalschuld und nicht von dem Aus- 
zahlungskurs ausgehen. 

Mit Ihrer Bank werden Sie bei der Kreditaufnahme einen 
Zinssatz und eine Anfangstilgung (ebenfalls in Prozent vom 
nominalen Kreditbetrag) vereinbaren. Aus diesen beiden 
Größen setzt sich dann Ihre Rate zusammen, die Sie monat- 
lich oder vierteljährlich zu entrichten haben. Bei einem 
Zinssatz von 6% und einer Anfangstilgung von 2% sind das 
2000,- DM pro Vierteljahr oder 8000,- DM pro Jahr. Für die 
Laufzeit des Kredits bleibt.diese Rate gleich hoch. Aller- 
dings wächst der Tilgungsanteil in der Rate, während der 
Zinsanteil ständig abnimmt, da sich das zu verzinsende Ka- 
pital von Jahr zu Jahr vermindert. Daher dauert die Rück- 
zahlung des Darlehens in dem obigen Beispiel auch nicht 50 
Jahre, sondern nur ca. 23 Jahre (bei unverändertem Zins). 


Kreditangebote unterscheiden sich auch in der Dauer des 
fest vereinbarten Zinssatzes. Nach Ablauf dieser Frist 
wird der Zinssatz je nach Marktlage erhöht oder gesenkt. 
Sie können dann aber auch, falls Sie dies wünschen, die 
Restschuld bar bezahlen, sei es nun aus eigenen Mitteln 
oder aus Fremdmitteln. 
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Es kann also für Sie sehr wichtig sein, diese Restschuld 

zu kennen. Sie wird mit Hilfe eines Tilgungsplans er- 

mittelt, der die Kontoführung des Geldinstituts nachbil- 

det. Es gehen natürlich alle relevanten Kreditparameter, 

wie Rate, zu verzinsendes Kapital, Zins, Tilgung und Rest- 
schuld in diese Kontoführung mit ein. 

Einen derartigen Tilgungsplan simuliert das folgende Pro- 
gramm. Gleichzeitig werden Ihnen die Möglichkeiten des CPC 
demonstriert, mit Hilfe des 80-Zeichen-Modus und der 
PRINT USING-Anweisung Tabellen zu erstellen. 


Zu diesem Tilgungsplan sind jedoch noch einige Anmerkungen 
zu machen: 


1) Ausgangsgröße ist die Nominalschuld und nicht der aus- 
gezahlte Betrag. 


2) Verzinst und getilgt wird diese Nominalschuld. 


3) Obwohl regelmäßig (im vorliegenden Programm viertel- 
jährlich) Raten gezahlt werden, wird jeweils ein Jahr 
lang der Zins auf einen unveränderten Kapitalbetrag .be- 
rechnet. Erst nach Ablauf eines Jahres vermindert sich 
das zu verzinsende Kapital. 


4) Die Restschuld hingegen verringert sich mit jeder Ra- 
tenzahlung um den Tilgungsbetrag. Sie ist nach Ablauf 
eines Jahres identisch mit dem zu verzinsenden Kapital. 


5) Nach Ablauf eines Jahres werden die Kontenbewegungen 
abgeschlossen. Die geleisteten Zins-, Tilgungs- und Ra- 
tenzahlungen werden aufsummiert und das zu verzinsende 
Kapital wird um den Tilgungsbetrag vermindert. Die 
Restschuld bleibt beim Abschluß unberührt, da sie sich 
mit jeder Ratenzahlung verkleinert (natürlich nur, wenn 
auch wirklich Schulden getilgt werden). 
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6) Der Tilgungsplan wird solange fortgesetzt, bis die 
Restschuld kleiner als die Rate ist. Im vorliegenden 
Programm erfolgt dann ein entsprechender Ausdruck. 


7) Um die Bildschirmausgabe zu optimieren, ist im vorlie- 
genden Programm bei der Tabellenerstellung darauf ver- 
zichtet worden, die Erläuterung "Bitte eine Taste 
drücken !" gesondert auszugeben. Weiterhin ist auf die 
Ausgabestellen der PRINT USING-Anweisung zu achten. Ge- 
ben Sie nach dem Programmstart Milliardenbeträge ein, 
so gerät die Tabellenausgabe durcheinander. 


Programm: 


10 REM Ill 


’ 


#6) INT"I1l1l — Frogramm zur Aufstellung" 
40 FRINT TAB(7)"eines Tilgungsplans" 
50 FRINT+FRINT:FRINT 


etrag (nominal) 

J aler Jahreszinssatbz 
INFUT"Wieviel % Anfanc ilgung "5 
FRINT"Eingabe des Auszahlungsdatums 
INFUT"Ta te 
INFUT"Monat "sm 
INFUT"Jahr "3 .Fs FRINT 

RIGCHTE(CIE, 23: J=VAL. (IF) 
NT"Es rd somit der"stg5"."ins"t."yj 
"al hlungsdatum angenommen." 
MODE 2 


:97 THEN j=0:50T0 


" m»? THEN mem? ELSE mem+! 
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ING"##"; 
=1 THEN FRINT (11}"Aus: 
i=k1 THEN PRINT TAR(13"A 
'RINT TARB{l1>i-1;5". Rate"; 
” ; USING EHRHHH HH Fi 
bs 
Wa Zi: 
HHHRHH. HH" Ti; 
SING" HE, Rs 
THEN 410 
THEN R=kb# (Zs+tt) 7400 ELSE Rer/d 


- Zi 
-Ti 
» THEN 
THEN 


kKl=i F4MEN zau=lr GOSUE 640: GOSUE 


ou 
+1 
kZ=ek2+4 
210 
INT=FRINT"Mit der 


hlung von"s 
INT INTC(Rs+tTi)*1 


33/100; "DM 


Tabellenue 
INT"Datum 

Zins 

FRINT TAB) "in DM"STAB( 

'RINT TAB(4B) "in DM"YSTA 

FRINT TAB "Kapital"s TAB(71)"in DM" 
"im DM" 
RAN HRO, FROH FRINT 


Zu ver", 


FRINT"Eitte eine Taste druecken 1!" 
E 
THEN 670 
TURN 
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Variablenliste: 


i = Laufindex 

J = Jahr 

j$ = Eingabefeld für j 

kl = Anfangswert der Programmschleife 

k2 = Endwert der Programmschleife 

Kb = nominaler Kreditbetrag bzw. zu verzinsendes Kapital 
m = Monat 

R = Rate in DM 

Rs = Restschuld in DM 

t = Anfangstilgung in % 


Tag 


Tilgung in DM 


zae = Zählvariable 
Zi = Zins in DM 


Zs = nominaler Jahreszins in % 
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Programmbeschreibung: 


Satz 10- 70 : Überschrift 


Satz 80-170 : Eingabe der Ausgangsgrößen 
Die Jahresangabe wird als Stringvariable 
aufgefaßt, um in Satz 150 nur die beiden 
zuletzt eingegebenen Zeichen in einen nu- 
merischen Ausdruck umzuwandeln. Diese etwas 
umständliche Vorgehensweise hat zur Folge, 
daß von einer Eingabe "1985" nur der Wert 
"85" als Jahr in die Tabellenerstellung 
eingeht. 


Satz 180 : Es wird zum Unterprogramm "Warten" ver- 
zweigt, der Bildschirm wird geräumt und der 
Bildschirmmodus wird geändert (80 Zeichen 
pro Zeile) 


Satz 190 : Sprung ins Unterprogramm (Satz 550) zur 
Ausgabe der Tabellenüberschrift 


Satz 200 : Belegung der Variablen mit Ausgangswerten 
für den ersten Schleifendurchlauf 


Satz 210-470 : Bildung einer Programmschleife zur Berech- 
nung der einzelnen Größen und zur ta- 
bellarischen Ausgabe der Ergebnisse für je- 
weils eine Periode (= 1 Jahr). Beim jeweils 
ersten Durchlauf wird der Vorgang "Aus- 
zahlung" bzw. "Abschluß" berücksichtigt. 
220-250 : Im 2. - 5. Durchlauf je Periode 

(dann werden Raten gezahlt) ver- 
ändert sich das Datum 
260-270 : Ausgabe des Datums 
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280-300 : Ausgabe des jeweiligen Vorgangs 
(1. Durchgang der 1. Periode: 
Auszahlung, 1.Durchgang der fol- 
genden Perioden: Abschluß, 

2. - 5. Durchgang aller Perioden: 
Ratenzahlung) 

310-350 : Ausgabe der übrigen Tabellenwerte 

360-400 : Im jeweils 1. Durchgang werden 
Rate, Zins und Tilgung berechnet 
(bleiben für die jeweilige Pe- 
riode konstant) und eine Leer- 
zeile wird ausgegeben. In Satz 
370 ist zu beachten, daß eigent- 
lich nur im 1. Durchgang der 1. 
Periode die Rate berechnet wird. 
Ansonsten wird der letzte Ab- 
schlußwert einfach durch 4 ge- 
teilt. 

430-450 : Im jeweils letzten Durchgang wird 
die Rate, der Zins, das zu ver- 
zinsende Kapital und die Rest- 
schuld für den Abschluß berech- 
net. 

460 : Sind die Ergebnisse für 3 Peri- 
oden (zae=3) einschließlich Ab- 
schluß (kl=i, 1. Durchgang) aus- 
gegeben, wird der Zählindex wie- 
der gleich 0 gesetzt und es wird 
in die Unterprogramme "Warten" 
und "Tabellenüberschrift" ver- 
zweigt. 


Satz 480-500 : Nach Beendigung des Schleifendurchlaufs für 
eine Periode wird der Zählindex um I er- 
höht, Anfangs- und Endwert der Programm- 
schleife werden neu belegt und es wird zum 
Satz 210 (erneuter Schleifendurchlauf) ver- 
zweigt. 


- 89 — 


Satz 510-530 : Es wird ein Kommentar bezüglich der Rest- 
zahlung ausgegeben, wenn keine Rate mehr zu 
zahlen ist. 


Satz 540 : Sprung ins Unterprogramm "Warten", Umschal- 
tung auf den 40-Zeichen-Modus und Programm- 
ende 


Satz 550-630 : Unterprogramm "Tabellenüberschrift" 
In Satz 620 wird die Überschrift unterstri- 
chen. Mit der Anweisung PLOT wird der Gra- 
phikcursor in die entsprechende Position 
gebracht und mit der Anweisung DRAW wird 
die Linie gezeichnet. 


Satz 640-690 : Unterprogramm "Warten" 
Der Kommentar "Bitte eine Taste drücken" 
wird nur ausgegeben, wenn noch nicht mit 
der Tabellenerstellung begonnen wurde. 


Programmergebnisse: 


Starten Sie das Programm für einen nominalen Kreditbetrag 
von 10000 DM, einem Jahreszins von 7% und einer Anfangs- 
tilgung von 3%, und lassen Sie sich das Geld am 30.12.1985 
auszahlen, so werden Sie sehen, daß Sie bei einer viertel- 
jährlichen Belastung von 225,- DM, 88 Raten bis zum 
30.12.07 (also genau 22 Jahre) entrichten müssen, und daß 
dann noch ein Restbetrag von 198.85 DM zu zahlen ist. Sie 
zahlen dann also insgesamt 19998.85 DM zurück. 
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.6. Ideenfundgrube 


- Aufstellung eines Vergleichkontos, um Kreditange- 
bote vergleichbar zu machen (dabei spielen - im 
Gegensatz zum Tilgungsplan - die tatsächlichen 
Zahlungen zu den tatsächlichen Terminen die ent- 
scheidende Rolle) 

Bestimmung der Bewertungszahl bei Bausparverträgen 
Baufinanzierung und Bauherrenmodelle 
Kostenverwaltung und Kostenrechnung 
Wertpapieranalyse: Kursanalyse und Börsentrend 


Aktien-Depotverwaltung 


und noch vieles mehr 
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5. Texten und Drucken 


5.1. Vorbemerkung 


Ein Mikrocomputer ist nicht nur zum Rechen da, sondern er 
kann auch Texte verarbeiten. Dieses Einsatzgebiet der Com- 
puter dürfte nicht nur jedem Büroangestellten bekannt 

sein. 

Die wichtigsten Aufgabenstellungen der Textverarbeitung 
sind: 


- Speichern und Archivieren von Texten 


- wiederholtes Ausgeben von Texten 


- beliebiges und schnelles Verändern von Texten 
(korrigieren, ergänzen, zusammenfügen usw.) 


Wollen Sie wirklich ernsthaft Textverarbeitung betreiben, 
so sollten Sie sich auf dem professionellen Software-Markt 
umschauen. Sie werden sich wundern, was zum Beispiel 
TEXTOMAT von DATA BECKER lei- 

stet. Allerdings benötigen Sie dann auch ein Disketten- 
laufwerk als externes Speichermedium. Für den gelegent- 
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lichen Hausgebrauch reichen aber auch selbstgestrickte 
Programme und ein Cassettenrecorder. Ein derartiges Pro- 
gramm kann entweder die wichtigsten Funktionen der pro- 
fessionellen Textverarbeitungssoftware simulieren (siehe 
Kapitel 5.4) oder nur für bestimmte Anwendungen geeignet 
sein (siehe Kapitel 5.3). 


Ohne große Schwierigkeiten können auch bestimmte Tasten 
Ihres Rechners mit deutschen Sonderzeichen, wie zum Bei- 
spiel ü,ä,ö oder ß belegt werden. Gerade bei der Textver- 
arbeitung ist dies ja sicherlich sinnvoll. In Kapitel 5.2 

befindet sich dazu ein entsprechendes Programm. Eigentlich 
selbstverständlich ist die Möglichkeit, mit der SHIFT- und 

der CAPS LOCK-Taste auf Groß- bzw. Kleinbuchstaben umzu- 
schalten. Dies sei nur kurz erwähnt, da Sie bei mathema- 
tischen Anwendungen auch sehr gut ohne diese Umschaltmög- 
lichkeit zurecht kommen. 


Zum Thema Drucker lassen sich generelle Empfehlungen nicht 
machen. Der Schneider Matrix Printer NLQ 401 liefert für 


sein Geld sicherlich ein sehr gutes Schriftbild, aber - 

egal welchen Drucker Sie haben - Sie werden immer einen 
finden, der noch schöner druckt. Insbesondere die Frage 
"Typenraddrucker oder Matrixprinter ?" ist immer eine Fra- 
ge des Geldbeutels. Für den mehr professionellen Bereich 
ist ein Typenraddrucker natürlich geeigneter. 


Ein letzter Hinweis noch zum Thema Monitor. Wenn Sie einen 
Farbmonitor haben, so probieren Sie am besten aus, mit 
welcher Farbkombination Sie gut arbeiten können. Vermeiden 
Sie jeglichen Farbenzauber. Ihre Augen werden es Ihnen 
danken. Einfacher haben Sie es da, wenn Sie einen Grünmo- 
nitor besitzen. Er eignet sich sehr gut für die Textverar- 
beitung, da er nicht vom Wesentlichen ablenkt. 
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5.2. Deutsche Sonderzeichen 


Beim Vergleich der Tastatur Ihres Rechners mit der einer 
Schreibmaschine ist Ihnen sicherlich aufgefallen, daß da 
einiges anders ist. Für die Textverarbeitung ist das 

Fehlen der deutschen Umlaute ü,ä,6,U,Ä,Ö und des ß zu be- 
mängeln. In Schneider-BASIC ist es jedoch recht umproble- 
matisch, diese Sonderzeichen für bestimmte Tasten zu de- 
finieren. Man sollte sich dabei nur für Tasten ent- 

scheiden, deren ASCII-Wert mit dem entsprechenden Wert in 
der Character Code Tabelle des Druckers übereinstimmen. So 
wird gewährleistet, daß ein Umlaut auf dem Bildschirm auch 
als Umlaut ausgedruckt wird. 


In dem folgenden Programm wird diese Tastenbelegung voll- 
zogen. Der Umgang mit diesen Tasten bedarf jedoch einer 
gewissen Eingewöhnungsphase, da die belegten Tasten nur 
zum Teil an die Schreibmaschinentastatur erinnern. 


Die Neubelegung erfolgt mit Hilfe der SYMBOL-Anweisung. 
Zu beachten ist dabei, daß die Parameter dieser Anwei- 
sung, welche bitabhängig von oben nach untn die 8x8 
Punktmatrix des neuen Zeichens beschreiben, Hexadezimal- 
zahlen sind. So bewirkt zum Beispiel der Parameter C3, daß 
die ersten und die letzten beiden Spalten der jeweiligen 
Zeile die aktuelle Schreibstiftfarbe und die mittleren 


—- 95 — 


vier Spalten die Schreibflächenhintergrundfarbe erhalten, 
da die Hexadezimalzahl C3 in binärer Schreibweise gleich 


11000011 


0 = Schreibflächenhintergrundfarbe 
1 = Schreibstiftfarbe 
ist. 
Für jede der 8 Zeilen müssen Sie eine "passende" Hexade- 
zimalzahl angeben. Im Bedienungshandbuch zu Ihrem CPC 
finden Sie eine hübsche Tabelle, in der das Binär- dem 
Hexadezimalsystem gegenübergestellt wird, so daß Sie sich 
aufwendige Umrechnungen ersparen können. Weiterhin er- 
leichtert es die Definitionsarbeit, wenn Sie den in Ihrem 
Handbuch aufgeführten CPC-Zeichensatz zu Rate ziehen. Dort 
finden Sie auch die jeweiligen Zeichennummern (erster Pa- 
rameter der SYMBOL-Anweisung). 


Programm: 


"I12 — Frogramm zur Definition vom" 

AB(7) "deutschen Sonderzeichen" 
NT:FRINT:FRINT:FRINT=FRINT 

TAB(9) "Bernd Kowal, 1985" 

390 


80 FRINT"Betaetigen Sie bitte langsam und" 
FRINT"nacheinander folgende 
»FRINT'"ohne SHIFT und ETR 
INT"und mit SHIFT H 8,&,0" 
T'und mit CTRL. : a (links oben?" 


a a 
BA EOD IE ID 
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Gun REM gross 'UE’ 


SYMBOL 98,566, 5,0 66,66 66 6b, EC, uÜ 


‚ REM klein 'oe’ 


HC 


SYMENDL 124, ,66,4U, KEO, R66 6b, haa, El, %Ü 
REM gross 'DE’ 
SYMBOL 92, %EN,%öC ,C6 ,uUC6 , U, Al, EB, Bü 
REM klein ’ae' 
SYMBOL 12 6 ,40,78, 0,70, ECO, u76, 0 
REM gross "AB 
SYMBOL 91,8:5A,2ET 66, 66, TE , a66 , 66, 
REM scharfes '5° 
SYMEOL 1236,%70,%C06,%C5,%FC ,%:U06 ,%[06,%F8, 400 
FRINT:FRINT:FRINT 
FRINT"Falls Ihnen das 'Design’ der Umlaute" 
FRINT"nicht gefallen sollte, ändern Sie" 
FRINT"doch einfach die entsprechenden" 
FRINT"SYMBOL-Anwei sungen." 
FRINT=FRINT=FRINT 
FRINT"Ende des Frogramms"sENDG 
"EM UF Warten 
LOCATE 5,25 
j NT"Eitte eine Taste druecken 1" 

"EY+ 
" THEN 80 
RETLIRN 


Im Programm werden keine Variablen benötigt 


Programmbeschreibung: 


Satz 10- 70: Überschrift 


Satz 80-120 : Ausgabe einer Benutzeranweisung 


Satz 130 : Festlegung des Bereichs, in dem die deut- 
schen Sonderzeichen definiert werden 


Satz 140-270 : Definition der deutschen Sonderzeichen und 
Neubelegung der Tasten 


Satz 280-330 : Ausgabe eines Kommentars 
Satz 340 : Programmende 


Satz 350-400 : Unterprogramm zum Warten 


Programmergebnisse: 


Immer dann, wenn Sie die deutschen Sonderzeichen benutzen 
wollen, können Sie die SYMBOL-Anweisungen anbringen. Dies 
kann - wie oben demonstriert - im Programmablauf geschehen 
oder auch im Direktmodus (auf der Kommandoebene). 
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5.3. Ein individueller Geschäftsbrief 


Sie sind Geschäftsmann und Inhaber eines kleinen Ladens 
mit dem hübschen Namen "Handel Allerlei" in Hintertupfin- 
gen, Dorfstraße 1? Dann kommt es doch auch gelegentlich 
vor, daß ein Kunde das Begleichen einer Rechnung "ver- 
gißt". Diesem lieben Kunden (nennen wir ihn Herrn Geizig) 
müssen Sie dann eine Zahlungsaufforderung zusenden, die 
etwa so aussehen könnte: 


(bitte umblättern) 
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Handel Allerlei 
Dorfstraße 1 


4999 Hintertupfingen 


Heini Geizig 
Hauptstraße 2 


4998 Vordertupfingen Hintertupfingen, den 20.4.1985 


Betr.: Lieferung einer Schubkarre vom 1.4.1985 


Sehr geehrter Herr Geizig! 


Sie haben immer noch nicht gezahlt. Das ist eine Unver- 
schämtheit. Wenn der Betrag von 147.50 DM nicht bis zum 
30.4.1985 auf unserem Konto eingegangen ist, werden 

wir zu Rechtsmitteln greifen müssen. 


Mit freundlichen Grüßen 
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Sollte nun ein anderer Kunde ebenfalls mit seiner Zahlung 
im Rückstand sein, so würde es ausreichen, die unterstri- 
chenen Teile des Briefes lediglich auszuwechseln. 


Genau so können Sie verfahren, wenn Sie Ihren CPC, einen 
geeigneten Drucker und ein entsprechendes Programm ein- 
setzen. Das passende Programm zu dem obigen Geschäftsbrief 
finden Sie auf den nächsten Seiten. Die unterstrichenen 

Teile des Briefes geben Sie als Variablen über INPUT- 
Statements ein; der Rest des Briefes ist hingegen fest im 
Programm verankert. Falls Ihnen der Text des Briefes nicht 
gefallen sollte (in Düsseldorf sollen die Geschäftleute 

andere Gepflogenheiten kennen als in Hintertupfingen), 
verändern Sie ihn einfach. Das ist eine Arbeit, die Sie 

nur einmal erledigen müssen. Bedenken Sie aber, daß zum 
Beispiel im folgenden Programm jede Textzeile genau 56 An- 
schläge hat. Das macht einen professionellen Eindruck und 
ist durch zusätzliche Leerzeichen nicht schwer zu program- 
mieren. 


Auf diese Art und Weise können Sie Ihre gesamte Geschäfts- 
korrespondenz durchforsten. Sie werden sich wundern, wie- 
viele Textteile sich in Ihren Briefen wiederholen. Und - 

die Individualität Ihrer Geschäftsbriefe bleibt erhalten. 


Programm: 


' 


"Bernd Eowal, 


derzeichen 
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SYMBOL 
SYMBOL. 
SYMEOL. 
SYMBOL. 
SYMBOL. 0, RU ETR,UE, 
MEOL. 91,5% EEETTIERTRR 
'MEOL 126,470, 806,06, FC , 2.06 ‚%C6,%F8, co 
‘EM Eingaben 
MODE 2 
FRINT"Name des Kunden 2" 
INFUT"Vorna "avmE 
INFLUT"Nachname "ann 
FRINT:FRINT" Ist der Eunde Mann oder Frau" 
INFUT" (geben Sie m oder # ein) "ıgE 
FRINT:FRINT"Adresse des Kunden 2" 
INFUT"Straße mit Hausnummer "ysh 
INPUT"Ort mit Fostleitzahl "zopf 
INT» INFUT"Absendedatum der Mahnung "zachH 
} aff "shi 
INT» INPUT"Um WRICREN DM-Betrag geht es "sum 
FRINT:FRINT"Bis wann werden Zahlungen" 
INFUT" ber ic hier "sack 
REM Ausga 
21.5: FRINT"Ausgabe auf"3 TARBCKVO) "Eingabe" 
PRINT: INT"Bildschirm"; TAB ro" 
FRINT=FRINT" Drucker "3 TARCHII "8" 
FRINT:FRINT:INFUT "Thre Wahl "3asCLS 
FRINT Has FRINT Has FRINT #asFRINT Ha 
FRINT Ha, "Handel Allerlei" 
FRINT #a, "Dorfstraße 1" 
"AINT Has NT Ha, "4997 Hintertupfingen" 
Ka:FRINT #Fa:rFRINT Ha 
on: vrY&s" "snnE 
iE3 
‘INT #a, ons 
N tachE) 
TABiq>"Hintertupfingen, dem "zachH 
#a: FRINT #arFRINT #arFRINT HarFRINT Ha 
PRINT #a, "Betr.s "sb 
FRINT #arFRINT 4a 
IF Oö THEN GOSUE 680 
IF og: m" THEN 540 
FRINT #a,"Sehr geehrte Frau "sinn#3 "!":GODTD 550 
FRINT ka, "Sehr geehrter Herr "annifz3 "1" 
FRINT Has FRINT #a, "Sie haben immer noch nicht "y 
FRINT Ha, szwahlt Das ist eine Unver- 
FRINT Ha, hämtheit. Werrn der Betrag van "4 
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SB FRINT #a, 


390 


FRINT 
FRINT 

RINT 
FRINT 
FRUINT 
PRINT 


USING 


4 cms 


#a, " DM nicht bis zum" 
Ha, USING"O 


Ha," auf 
Ha, 
Ha, 


Ha,"Mit 


THEN 


fre 


710 


ö'szd# 


unserem Honto eingegangen 


u 


ındlichen Grüßen" 
HasFRINT Ba:FRINT BarFRINT 


Taste Jdruecken 
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u 


#Ha:FRINT #2 


" 


Variablenliste: 


a = Ausgabegerät (0 für Bildschirm, 8 für Drucker) 
ad$ = Absendedatum des Briefes 

b$ = Betreff 

dm = der noch nicht gezahlte DM-Betrag 

g$ = Geschlecht des Kunden 

nn$ = Nachname des Kunden 

op$ = Ort mit Postleitzahl 


q = berechneter Parameter für die TAB-Funktion bei der 
Ausgabe des Absendedatums 


sh$ = Straße mit Hausnummer 


v$ = Vorname des Kunden 


zd$ = Datum, bis zu dem Zahlungen berücksichtigt werden 


Programmbeschreibung: 


Stz 10- 80 : Überschrift 


Satz 90-170 : Definition der deutschen Sonderzeichen 
(siehe Kapitel 5.2) 
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Satz 180-320 : Eingabe der "unterstrichenen" Teile des 
Briefes. Dazu wird in Satz 190 der Bild- 
schirmmodus auf 80 Zeichen pro Zeile ge- 

setzt (für längere Eingaben). 


Satz 330-660 : Ausgabe des kompletten Briefes 
In den Sätzen 340-370 können Sie auswählen, 
ob der Brief auf dem Bildschirm oder auf 
dem Drucker ausgegeben werden soll. Be- 
achten Sie, daß eine falsche Eingabe für a 
im Programm nicht "abgefangen" wird. 
In Satz 460 wird der Parameter der TAB- 
Funktion für die Ausgabe des Absendedatums 
in Satz 470 berechnet, damit die gesamte 
Ausgabezeile genau 56 Zeichen lang ist. 
Im Falle einer Ausgabe auf dem Bildschirm 
wird in Satz 510 der Programmablauf unter- 
brochen (Unterprogramm "Warten"), da der 
Brief mehr Zeilen als der Bildschirm hat. 
In den Sätzen 520-540 wird die Anrede in 
Abhängigkeit von der Eingabe "Geschlecht 
des Kunden" ausgegeben. 
Die Ausgabe des DM-Betrages und des Datums 
in den Sätzen 580-600 erfolgt formatiert. 
Wenn Sie mit höheren DM-Beträgen zu tun 
haben, müssen Sie das Format ändern. Zu be- 
achten ist dabei, daß dann die entsprechen- 
de Zeile mehr Ausgabezeichen hat. Für das 
Datum sind maximal 10 Zeichen vorgesehen, 
ausreichend etwa für die Eingabe 
"24.12.1985". 


Satz 670 : Sprung ins Unterprogramm "Warten", Änderung 
des Bildschirmmodus und Programmende 


Satz 680-730 : Unterprogramm "Warten" 
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“ 
” 
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we: 
» 
= 
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5.4. Textverarbeitung 


Im Vergleich zur professionellen Textverarbeitungs-Soft- 
ware weist das Programm in diesem Kapitel natürlich Mängel 
auf. Aber es ist ja schließlich auch nur für den Hausge- 
brauch und nicht fürs Büro erstellt worden. 


Folgende Bearbeitungsschritte können Sie mit dem Programm 
durchführen: 


- Texte eingeben (über die Tastatur) 
- Texte ansehen (auf dem Bildschirm) 


- Texte korrigieren (Textzeilen verbessern, einfügen 
oder löschen) 


- Texte einlesen (von Cassette oder Diskette) 
- Texte abspeichern (auf Cassette oder Diskette) 
- Texte drucken 
Wollen Sie ein Diskettenlaufwerk als externes Speicher- 


medium einsetzen, müssen Sie die folgenden Programmzei- 
In ändern bzw. einfügen: 
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1745 INPUT "Wie heisst der Text ";n$ 
1750 OPENIN n$ 


Ansonsten sind keine Änderungen bezüglich des zu verwen- 
denden Speichers notwendig. 


Die Anzahl der Zeichen pro Zeile können Sie selbst wählen 
(bis zu 70 Zeichen). Ebenfalls können Sie die Anzahl der 
Zeilen pro Seite und die Breite des linken Randes bei der 
Druckausgabe frei bestimmen. Weitere Formatangaben werden 
nicht gebraucht. So wie Sie den Text eingeben und auf dem 
Bildschirm sehen, wird er auch ausgedruckt. 


Im Gegensatz dazu geschieht das Formatieren, also das Auf- 
teilen eines Textes zum anschließenden Druck, bei vielen 
professionellen Textverarbeitungsprogrammen für den CPC 
ineinem separaten Arbeitsgang. Der Monitor ist nun einmal 
nicht dazu in der Lage, alles das darzustellen, was auch 

der Drucker drucken kann. Weiterhin ist bei vielen Text- 
verarbeitungs-Paketen nicht auf die Länge einer Textzeile 
zu achten. Eine entsprechende Angabe können Sie dann vor 
der Druckausgabe machen. Natürlich können Sie sich den 
formatierten Text auch erst einmal auf dem Bildschirm zei- 
gen lassen. Zusammenfassend läßt sich sagen, daß Sie bei 
professionellen Programmen - neben einer komfortableren 
Handhabung des Textes - viele Möglichkeiten haben, einen 
eingegebenen Text aufs Papier zu bringen. 


Bei dem hier vorliegenden Programm ist das ein wenig an- 
ders. Zwar wird die Anzahl der Zeichen pro Zeile bei der 
Druckausgabe auch begrenzt, Sie müssen aber bei der Text- 
eingabe selbst darauf achten, nicht zuviele Zeichen pro 
Zeile einzugeben. Es wird lediglich eine senkrechte Linie 
auf dem Bildschirm gezeichnet, die Ihnen anzeigt, wann 
eine Zeilenlänge erreicht ist. Das ist immer dann der 


—- 108 — 


Fall, wenn der Cursor diese Linie berührt. Durch die Be- 
tätigung der ENTER-Taste kann dann die nächste Zeile ge- 
schrieben werden. In welcher Zeile und auf welcher Seite 

Sie sich befinden, wird natürlich während der Texteingabe 
angezeigt. Zu beachten ist bei diesem Programm weiterhin, 
daß Anführungszeichen zu Zeilenumbrüchen führen. Für Her- 
vorhebungen ist daher das Apostroph zu verwenden. 


Insgesamt kann ein mit dem vorliegenden Programm bearbei- 
teter Text maximal 300 Textzeilen umfassen (unabhängig von 
der Seitenaufteilung). Das sind ca. 6 Schreibmaschinensei- 
ten. Indem Sie die Sätze 180 und 570 ändern, können Sie 
auch mehr Textzeilen eingeben. Sie müssen dann nur auf die 
begrenzte Speicherkapazität Ihres Rechners achten. Ent- 
weder unterbrechen Sie dazu den Programmablauf und fragen 
mit der Funktion FRE den freien Speicherplatz ab, oder Sie 
nehmen diese Funktion in geeigneter Weise in den Programm- 
ablauf auf, um ein "Überlaufen" des Speichers zu verhin- 
dern. 


Wollen Sie einen abgespeicherten Text ergänzen, so können 
Sie diesen einlesen und dann neue Textzeilen hinzufügen. 

Die Formatangaben "Zeichen pro Zeile" und "Zeilen pro 
Seite" müssen Sie dann aber übernehmen. Nur die Angabe 
"Zeilen pro Seite" ist bei der Druckausgabe noch zu än- 

dern. 

Es ist nicht möglich, einen Text zusätzlich zu einem ein- 
gegebenen Text einzulesen. Der eingegebene Text würde dann 
überschrieben. Jedoch kann man einen eingelesenen Text an 
jeder beliebigen Stelle ergänzen. 


Ansonsten ist das Programm weitestgehendst selbsterklä- 
rend. Am besten Sie probieren es gleich einmal aus. 

Und ... ziehen Sie nicht den Stecker bevor Sie Ihren Text 
gesichert haben ... 
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Programm: 


"Tl4 = Frogramm zur Te verambeitung" 
RINTEFRINTEFRINT:FREINTEFRINTSFRINT 
FRINT TAB t 7) "Bernd Kowal, 1985" 
IE 2490 


3 | deuksche Sonderzeichen 
90 REM 
iR 90 


5 YMEOL 
SYMEOL 


lo, 05, HFC, 06,06, FB, CU 
DL ır "A" MEMORY MHIMEM-1:C OSEOLT 
Mermıie 


NT TAEt152 "Menue"s PRINT 

NT TAECHD "Eingabe": FRINT 
FRINT" Te ":FRINT 
FRINT" eingeben" TABU) "L"SFRINT 
F RINT" ansehen"; TARB(Fo) "EZ" FRINT 

korrigieren"5; TAB(3O) "I" SPRINT 
5 & ; "AUS FRINT 
FRINT" absg i 2 ABS "SSFRINT 
FRINT" drucken"; TAB) "S"SFRINT 
FRINT"Arb ei t. Beenden "TABEHRAI"T" 
"F T"Ihre Wahl "yasClLS 


ON a GOSUE 3,650,850,1720,1820,1950, 2260 
MODE 1:60TO ) 
REM 


Texte eingeben 


>50 THEN #30 
T'"Wieviele Zeichen pro Zeile "zz: FRINT 
1 OR ' THEN 410 
THEN 

"Wieviele Zeilen pro Seite s285: PRINT 

;:FRINT"Geben Sie fuer eine Zeile '##' ein," 
460 F NT'"so wird die Eingabe ndet. ":GOSUE 2490 
FC 4 5 
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=2,4,25 
22,4,2 


FRINT #O, USING " ## 
FRINT #0, tE(i?:SNEXT i 
IF z=zs THEN z s=s+l 
z=azt+tl 
THEN FRINT:FRINT"Es 


icherpiatz mehr verfuegbar" 


S80 LOCATE #1, zz/2+7,1:FRINT #1, 
590 FRINT AG, USING " ## 
EN LINE INFUT tFt(az) 
» IF t#tazı)en"4#" THEN 580 
g3} 


1:WINDOW #0,1,40,1 


Texte ansehen 
REM 
INFUT"Welche 


Er 
„4,25 


be INT #1, 


#0, USING " 4 
PRINT #0, ti) 

IF ö . 
NEXT i:G0SUE 1 
WINDOW #0,1,40,1, 


ist 


kein 


: RETURN 


= 


Zur Noch eine Seite (j/n) "zafF 


"mn" THEN RETURN 
ar 3" THEN 800 
NT:FRINT:GOTO 670 


Texte korrigieren 


"RINT TABt15) "Menue! ER EIRIN 


"RINT TAB "Eingabe" 
FRINT"Textzeilen":FRINT:FRINT 
FRINT" verbessern"; TAB 
FRINT" einfuegen"; TABRt 

FRINT" l\oseschen";TABt 
"RINT"EKorrektur beenden' 
FRINTEFRINT: INFUT" 

IF al OR a>4 THEN 870 
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RETUFN 


90 IF ax4 THEN INFUT"Welche Seite ";xs PRINT 
75 ON a GOTO 990,1150,1470,17U0 
980 REM 
79705 REM verbessern 
' REM 
FRINT'"Welche Zeile soll" 
INFUT"verbessert werden 
jeberl)srsthy 
FRINT:FRINT"Die Zeile davor x" 
"RINT TF(iHldssFRINT TABCzz 
INT'"Die zu verbessernde 
INT tE(I)G 
RINT"Die ; » damach 
[N (itrldss FRINT TABRtzerid CHRECHLLISFRINT 
INT'"Wie soll die" "„te Zeile lauten 
B4 17:FRINT CHR& 11274 IMT 
. INFUT WECU) 


EL 


FRINT" Zwischen welchen Zeilen soll 
RINT'"ein 
KINTS INMFi { 
leylaylatı-l) yi 
INT"Die si] laubet 2" 
FRINT TAB 


@ Ze 


lautet 
i TAB 
j Zeilen sollen einge 


yl+i TO 


1, 
INT #0, 
LINE INPUT 
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NEXT i 
WINDOW #0,1,40,1,25 
MODE 1:G60T0 875 
REM 
REM loeschen 
REM 
FRINT"Welche Zeilen sollen gelvescht werden”" 
30 FRINT:INFUT"von: Zeilennummer "yyi 
zi=yliyl=(x-1l)#zstyl 
’ FRINT"Die Zeile lautet »" 
FRINT t#t(ylds:=FRINT TARtzz+1l) CHRE(ZIL) 
FRINT: INFUT"bis: Zeilennummer "zy2 
>=z1 THEN 1580 
FRINT:FRINT"Die zweite Zeilennummer muss groesser" 
FRINT"als die erste sein.":GDTO 1500 
Betlyel)szsty2 
FRINT"Die Zeile lautet :" 
FRINT t#(y2)5;:FRINT TAB(zz+i) CHRF(211) 
FRINT:FRINT:FRINT TAB(103 "Ich loesche !" 
GOSUB 2490 
yazyieyltl 
FÜR i=y1 TO az 
t#i)- =t#(iry? 


MODE 1:60T0 870 

1700 REM Eorrektur beenden 
1710 MODE 1:RETURN 

a REM 

> REM Texte einlesen 

17 740 REM 

1750 OFENIN "" 
1760 INFUT #9,22,25,5,2,a2 
1770 FOR i=1 TOD az 
1780 INFUT #9, (i) 

1790 NEXT i 
1800 CLOSEIN 
> ELS: RETURN 
REM 
REM Texte abspeichern 
REM 
FRINT"Wie soll der abzuspeichernde" 
INFUT"Text heissen "z;n#:FRINT 
OFENDOUT nF 
1880 FRINT #9, 22,25,5,2,az 
1890 FOR i=1 TO ax 
17500 WRITE #9,t#(i) 
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NEXT i 
ELOSEQLUT 
19 21.5: RETURN 
1940 REM 
1950 REM Texte drucken 
1950 REM 
1970 FRINT"Soll der Wert fuer die Anzahl" 
1980 FRINT"der Zeilen pro Seite geaendert" 
IRA NErHER (jfnd "ya 
"n" THEN 2 
THEN 1970 
INFLUT'"Wie gross soll er sein "ıizs 
FRINT:FRINT'"Wie breit soll der linke Rand 
INFUT"Anzahl der Leerzeichen "s;ir 
WIDTH 
FRINTSFRINT"Soll der « ame Text gedruckt 
INPUT Wer en (j/nd "ya 
='"m" THEN 2140 
3" THEN AOs0 


48, TABtelr+1) WEI) 


ch erden 


TAB(lr+i) TEIL) 


UT" gedruckt ward 
"j" THEN 214 
"n" THEN 
TURN 


REM Arbeit beenden 

REM 

FRINT"Haber Sie auch nicht vergessen dem" 
FRINT" Text abzuspeichern 7 

FRINT"Ist das der Fall, sc geben Sie einfach" 
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FRINT"ein ‘oh’ ein. Ansonsten reicht die" 
FRINT'"Leertaste. ": INFUT a® 
> IF afe"oh" THEN GOSUEB 1850 
> FRINT=FRINTEFRINT 
FRINT"Sie koennen mich jetzt ausschalten.” 
FRINT:FRINT:FRINT TAB) "Auf Wiedersehen"sEND 
YEM 
M Unterprogramm Bildschirmmaske 
MODE 2 
WINDOW #1,1,80,1,2 
FRINT #1, TAB « !)"Seite" 
FRINT #1,"Zeil H 
WINDOW #2,84 2, 9tr22,4,25 


eine Taste druecken 1" 


THEN 25320 
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Variablenliste: 


a = Antwort "Menüauswahl" 
a$ = Antwortstring 
az = absolute Zeilenanzahl bzw. Zeilnnummer (bezogen 
auf alle im Programmspeicher befindlichen Text- 


zeilen) 


Laufindex und absolute Zeilennummer im Programm- 
teil "verbessern" 


= untere Begrenzung einer Programmschleife 
= obere Begrenzung einer Programmschleife 


l = Hilfsgröße im Programmteil "Texte ansehen" 


Ir = Breite des linken Randes bei der Druckausgabe 


n$ = Name des abgespeicherten Textes 
s = Seitenzahl 
t$(1) = Textzeile 


x = Seitenzahl in den Programmteilen "ansehen" und 
"korrigieren" 


y = Nummer einer zu verbessernden Zeile 
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yl = kleinere Zeilennummer in den Programmteilen "ein- 
fügen" und "löschen" 


y2 = größere Zeilennummer in den Programmteilen "ein- 
fügen" und "löschen" 


y3 = Anzahl der einzufügenden Zeilen bzw. Anzahl der 
zu löschenden Zeilen 


z = Zeilennummer einer Seite 


zl = Zeilennummer einer Seite im Programmteil "korri- 
gieren" 


zs = Zeilen pro Seite 


zz = Zeichen pro Zeile 


Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70-170 : Definition der deutschen Sonderzeichen 


Satz 180 : Speicherplatzreservierung für den Text 


Satz 190 : Durch diese Programmzeile werden die noch 
zu eröffnenden Textdateien vor einer zeit- 
raubenden Speicher-Reorganisation ge- 
schützt. Die Zeile kann aber auch wegge- 
lassen werden, da sie bei einem wiederhol- 
ten Programmstart eine Fehlermeldung in 
Satz 100 verursacht. Es ist jedoch auch 
möglich, die Sätze 70-170 vor einem zweiten 
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Programmstart mit dem Kommando DELETE zu 
löschen oder den Satz 100 in ein REM-State- 
ment umzuwandeln: 


Satz 200-350 : Auswahlmenü und entsprechende Programmver- 
zweigungen in die einzelnen Unterprogramme 


Saz 360 : Da in den Unterprogrammen häufig der Bild- 
schirmmodus gewechselt wird, geschieht dies 
auch hier, um eine gleichbleibende Menüaus- 
gabe zu gewährleisten 


Satz 370-630 : Unterprogramm "Texte eingeben" 

370-390 : Kommentar 

400-460 : Belegung der Parameter zz und zs 
mit Werten, falls dies noch nicht 
geschehen ist, und Ausgabe einer 
Erläuterung für die Beendigung 
der Eingabe 

470 : Verzweigung zum Unterprogramm 
"Bildschirmmaske" 

480 : Definition eines Bildschirmbe- 
reichs für die Texteingabe (die 
rechte Fensterbegrenzung ist ab- 
hängig von dem Parameter "Zeichen 
pro Zeile") 

490 : Bei der Eingabe der allerersten 
Zeile (dann ist s=0) wird die 
Variable s gleich 1 gesetzt. 

500-540 : Der Text einer teilweise be- 
schriebenen Seite wird ausgegeben 

550 : Ist eine Seite voll (dann ist 
z=zs), wird eine neue Seite "auf- 
geschlagen" (s=s+1) und die 
Variable z gleich O0 gesetzt 

560 : Vor jeder Zeileneingabe werden 
die Variablen z und az um | er- 
höht 
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Ausgabe eines Kommentars und 
Rücksprung zum Menü, wenn sich 
300 Textzeilen im Programmspei- 
cher befinden 

580-590 : Ausgabe der Seitenzahl und der 
Zeilennummer (bezüglich einer 
Seite) 

600 : Eingabe einer Textzeile. Der 
Index einer Textzeile ist immer 
die absolute Zeilennummer az. 

610-630 : Bei der Eingabe des Abbruchkri- 
teriums werden die Variablen z 
und az um | vermindert (da das 
Abbruchkriterium ja nicht zum ei- 
gentlichen Text gehört), der 
Bildschirmbereich wird neu defi- 
niert und es erfolgt ein Rück- 
sprung aus diesem Unterprogramm. 
Ansonsten wird zur weiteren Text- 
eingabe zum Satz 550 verzweigt. 


Satz 640-830 : Unterprogramm "Texte ansehen" 

640-660 : Kommentar 

670-680 : Eingabe einer Seitenzahl 

690-700 : Die Hilfsvariable I wird gleich 0 
gesetzt, es wird ins Unterpro- 
gramm "Bildschirmmaske" verzweigt 
und das Textfenster wird neu de- 
finiert 

710 : Ausgabe der Seitenzahl 

720 : Die (absoluten) Zeilennummern des 
Anfangs und des Endes einer Seite 
werden bestimmt 

730-780 : Ausgabe des Textes. Nach der Aus- 
gabe von 22 Zeilen (siehe Hilfs- 
variable I) wird ins Unterpro- 
programm "Warten" verzweigt. Auf 
die Erläuterung "Bitte eine Taste 
drücken" wird hier verzichtet. 

790-830 : Das Textfenster wird neu defi- 


=NI- 


niert und es können weitere Sei- 
ten angesehen werden. Ansonsten 
erfolgt ein Rücksprung aus dem 

Unterprogramm. 


Satz 840-1710 : Unterprogramm "Texte korrigieren" 

840- 860 : Kommentar 

870- 970 : Auswahlmenü und entsprechende 
Programmverzweigungen, sowie 
Anforderung einer Seitenzahl 

980-1130 : Programmteil "verbessern" 
Eine Zeilennummer wird ange- 
fordert (Satz 1010-1020), die 
dazugehörige absolute Zeilen- 
nummer wird berechnet (1030), 
die zu verbessernde Zeile 
wird neben den benachbarten 
Zeilen ausgegeben (1040-1090) 
und dann anschließend ver- 
bessert (1100-1120). Schließ- 
lich wird der Bildschirm ge- 
räumt und es erfolgt eine 
Verzweigung zum Menü. 

1140-1450 : Programmteil "einfügen" 
Zeilennummern werden angefor- 
dert, die absoluten Kenn- 
zahlen werden berechnet und 
die Textzeilen werden ausge- 
geben (1170-1290). Dann wird 
ein Wert für die Anzahl der 
einzufügenden Zeilen eingege- 
ben (1300-1310), die Varia- 
blen z und az werden berich- 
tigt (1320-1330, dabei wird 
in Satz 1330 berücksichtigt, 
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daß die zusätzlichen Zeilen 
eine neue Seite erfordern 
können), die Indizes der vor- 
handenen Textzeilen werden 
korrigiert (1340-1360) und 
die neuen Textzeilen können 
mit Hilfe der Bildschirmfen- 
sterdefinition und dem Unter- 
programm "Bildschirmmaske" 
eingefügt werden (1360-1440). 
Anschließend wird wieder zum 
Menü verzweigt (1450). 
1460-1690 : Programmteil "löschen" 
Es werden Zeilennummern ange- 
fordert, umgerechnet und die 
entsprechenden Textzeilen 
werden ausgegeben (1490- 
1600). Dann wird nach einer 
Kommentarausgabe (1610) die 
Anzahl der zu löschenden Zei- 
len berechnet (1630), welche 
dann überschrieben werden 
(1640-1660). Anschließend 
werden die Variablen z und az 
neu berechnet (1670), wobei 
wiederum berücksichtigt wird, 
daß sich die Seitenzahl än- 
dern kann (1680). Zum Schluß 
erfolgt ein Rücksprung zur 
Menüauswahl (1690). 
1700-1710 : Beendigung der Korrekturen 
durch Löschen des Bildschirms 
und Rücksprung aus dem Unter- 
programm 


Satz 1720-1810 : Unterprogramm "Texte einlesen" 
Das Einlesen erfolgt für die numerischen 
und die Textvariablen in getrennten Ar- 
beitsschritten. Für den Diskettenbetrieb 
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ist der Satz 1750 zu ändern, da dann ein 
konkreter Dateiname anzugeben ist. 


Satz 1820-1930 : Unterprogramm "Texte abspeichern" 
Das Abspeichern vollzieht sich genauso 
wie das Einlesen. Den Namen des abzuspei- 
chernden Textes können Sie frei wählen. 
Zu beachten ist jedoch, daß hier in Satz 
1900 nicht mit der PRINT- sondern mit der 
WRITE-Anweisung gearbeitet wird, d.h. 
die Textzeilen werden in Doppelanfüh- 
rungszeichen eingeschlossen abgespei- 
chert, um zu verhindern, daß zum Beispiel 
abgespeicherte Kommata zu unerwünschten 
Zeilenumbrüchen bei der Ausgabe führen. 


Satz 1940-2240 : Unterprogramm "Texte drucken" 
Nach einigen Formatangaben (1970-2040), 
wird die Anzahl der Zeichen pro Zeile für 
die Druckausgabe begrenzt (2050) und es 
wird entweder der ganze Text oder jeweils 
eine Seite ausgedruckt. Der Satz 2160 ist 
dabei identisch mit dem Satz 720. 
In diesem Programmteil können auch noch 
zusätzliche Anweisungen für die Drucker- 
steuerung (Druckermenü) eingefügt werden. 
Insbesondere die TAB-Anweisung macht bei 
längeren Textzeilen Probleme. Man nimmt 
dann besser druckerspezifische Anwei- 
sungen wie CHR$(27),’1’;CHR$(n); (Ep- 
son-Drucker), wobei "n" den Spaltenwert 
der Ausgabe angibt. 


Satz 2250-2360 : Unterprogramm "Arbeit beenden" 
Falls Sie es versäumt haben sollten Ihren 
Text abzuspeichern, können Sie dies hier 
noch tun. Ansonsten ist das Programmende 
erreicht. 
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Satz 2370-2470 : Unterprogramm "Bildschirmmaske" 
Mit Hilfe der Definition zweier Bild- 
schirmfenster wird die "Maske" erstellt. 
Das erste Fenster (definiert in Satz 
2410) dient der Ausgabe der aktuellen 
Zeilen- und Seitenzahl. Im zweiten Fen- 
ster (definiert in Satz 2440) wird die 
Zeilenbegrenzung eingezeichnet (2450- 
2460). Die Definition der Textfenster hat 
den Vorteil, daß auch bei einem "Weg- 
rollen" der Textzeilen (Bildschirmbereich 
#0), die "Maske" erhalten bleibt. 


Satz 2480-2550 : Unterprogramm "Warten" 
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.5. Ideenfundgrube 


- Geburtstagsgrüße 
- Einladung zur Party 


- Standard- und Geschäftsbriefe (Rechnungen, Mahnun- 
gen etc.) 


- Bewerbungen (Anschreiben und Lebenslauf) 

- individuelle Werbebriefe 

- Zeugnisse und Urkunden 

- Adressen speichern und ausdrucken 

- Ausdruck selbstklebender Computer-Etiketten 


- Referate, Diplom- und Doktorarbeiten professionell 
gestalten 


- und noch vieles mehr 
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6. Der Staat und das Geld 


6.1. Vorbemerkung 


Wahrscheinlich gehören Sie auch zu den Leuten, die Monat 
für Monat Steuern und Sozialversicherungsbeiträge zahlen. 
Dazu sind Sie in der Regel ja auch verpflichtet. Wer aber 
Pflichten hat, der hat auch Rechte. So haben Sie zum Bei- 
spiel das Recht, Ihr Steuerkonto nach Ablauf eines Jahres 
abzurechnen, d. h. einen Antrag auf Lohnsteuerjahresaus- 
gleich zu stellen. Weiterhin werden Sie irgendwann einmal 
in den "Genuß" kommen, Rente zu beziehen. Ob dies ein Ge- 
nuß sein wird bleibt natürlich fraglich. Es ist daher auf 
jeden Fall vorteilhaft, über sein Rentenkonto Bescheid zu 
wissen. 
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"Was nützt mir dabei mein Computer ?" werden Sie viel- 
leicht fragen. Nun ja, die Antwort ist einfach: er hilft 

Ihnen dabei. : 

Natürlich müssen Sie Ihre persönlichen Angaben selbst zu- 
sammenstellen, um sie dann in den Rechner eingeben zu kön- 
nen. Damit hat es sich dann aber auch schon. Der Rest, die 
eigentliche Berechnung also, wird vom Computer erledigt. 
Und diese Berechnungen können recht aufwendig sein, wenn 
Sie beispielsweise an die Ermittlung des durchschnitt- 

lichen Vomhundertsatzes bei der Rentenberechnung oder an 
die Berechnung der Vorsorgepauschale beim Lohnsteuerjah- 
resausgleich denken. Außerdem - und dies gilt insbesondere 
für den Lohnsteuerjahresausgleich - gehen Ihnen die Infor- 
mationen eines auf Ihre Bedürfnisse abgestimmten Programms 
nicht wieder verloren. Sie müssen sich also nicht immer 
erneut durch die Materie "hindurchbeißen" (der Mensch ist 
vergeßlich), sondern es reicht, gesetzgeberische Ände- 
rungen zu berücksichtigen. Schließlich und endlich können 
Sie behördliche Bescheide auch besser kontrollieren, wenn 
Sie zu jeder Zeit und ohne großen Aufwand Ihre eigenen Be- 
rechnungen durchführen können. 

Ein grundsätzliches Problem besteht nur darin, daß die 

hier vorgestellten Programme nicht jede Kleinigkeit be- 
rücksichtigen. Es ist im Rahmen dieses Buches schier un- 
möglich, die programmtechnischen Möglichkeiten Ihrer Fi- 
nanzbehörde oder Ihrer Landesversicherungsanstalt nachzu- 
vollziehen. Sie bleiben daher aufgefordert, das in den 
folgenden Programmen dargebotene "Gerüst" auf Ihre persön- 
lichen Bedürfnisse hin zu überprüfen und gegebenenfalls 
Programmerweiterungen vorzunehmen. 
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6.2. Die Rentenberechnung 


Grundlage der Rentenberechnung ist die Rentenformel. In 
ihr ist festgelegt, wie im einzelnen die vom Versicherten 
erbrachte Leistung zusammen mit anderen Faktoren zur Ren- 
tenberechnung herangezogen wird. Für die Berechnung einer 
Versichertenrente ohne Berücksichtigung eines etwaigen 
Steigerungbetrages für Höherversicherung und ohne Kinder- 
zuschuß lautet sie: 


JR = DvHS * Ba * VJ * SıS 
Dabei ist: 
JR = Jahresrente 
DvHS = Durchschnittlicher persönlicher Vomhundertsatz 
Ba = Allgemeine Bemessungsgrundlage 
VJ = Versicherungsjahre 
StS = Steigerungssatz 
Für jedes Kalenderjahr wird die allgemeine Bemessungs- 
grundlage neu festgelegt. Sie betrug für das Jahr 1983 


25445 DM. Falls Sie einen aktuelleren Wert zur Hand haben, 
ändern Sie bitte die entsprechende Programmzeile. 
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Die Versicherungsjahre ergeben sich aus den anrechenbaren 
Beitragszeiten zuzüglich eventueller Ersatzzeiten (Mili- 
tärdienst, politische Haft in der DDR usw.), Ausfallzeiten 
(Zeiten des Bezugs von Arbeitslosengeld, Zeiten der allge- 
meinen Schulbildung nach dem 16. Lebensjahr und der abge- 
schlossenen Hochschulausbildung usw.) oder Zurechnungszei- 
ten (z. B. bei Berufs- oder Erwerbsunfähigkeit vor dem 55. 
Lebensjahr). 


Der Steigerungssatz beträgt für Altersruhegelder und für 
Erwerbsunfähigkeitsrenten 1.5%, für Berufsunfähigkeits- 
renten 1%. 


Der durchschnittliche persönliche Vomhundertsatz wird zu- 
nächst für jedes Kalenderjahr und dann für die gesamte 
Beitragszeit berechnet. Er zeigt an, zu wieviel Prozent 

der persönliche Bruttoarbeitsverdienst mit dem Durch- 
schnittsverdienst aller Versicherten im gleichen Zeitraum 
übereinstimmt. Die Obergrenze liegt bei 200%. 


Im vorliegenden Programm sind zur Berechnung des durch- 
schnittlichen persönlichen Vomhundertsatzes die durch- 
schnittlichen Bruttojahresarbeitsentgelte aller Versicher- 

ten für die Jahre 1924 bis 1985 gespeichert. Dabei sind 

die Werte für die Jahre 1983 bis 1985 (Satz 440 des Pro- 
gramms) geschätzt. Sie sind gegebenenfalls zu aktuali- 
sieren. 

Zu beachten ist, daß im Programmablauf die Berechnung des 
durchschnittlichen Vomhundertsatzes nur funktioniert, wenn 
Sie den persönlichen Verdienst exakt eingeben. Bis 1942 
wurden jedoch ausschließlich Beiträge in Form von Bei- 
tragsmarken "geklebt". Diese Beiträge müßten Sie gesondert 
berücksichtigen, genauso wie nach 1942 "geklebte" Bei- 
tragsmarken, insbesondere für freiwillige Beiträge. 


Das Programm in diesem Kapitel deckt also nicht alle Be- 
sonderheiten und Möglichkeiten der Rentenberechnung ab. 
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Aber wir wollen hier ja auch nicht mit den Landesver- 
sicherungsanstalten konkurrieren. Zudem kann das hier Ge- 
sagte durch gesetzliche Änderungen schon bald hinfällig 
werden. Wer weiß? 

Also, insbesondere wenn es um 


Beitragsmarken 

Höherversicherung 

Kinderzuschuß oder 

Besonderheiten wie z. B. Zusatzbeträge für Wehr- 
dienstpflichtige neben der Wehrdienstdauer oder be- 
sondere Regelungen für die ersten fünf Jahre der Ver- 
sicherung zur Vermeidung einer Belastung des DvHS in- 


folge geringerer Verdienste 


geht, sollten Sie weitere Informationen einholen. 


Programm: 


[NT "115 — Frogramm x 
RINT: FRINT: NT:FRINT: 
"Bernd Kowa 


sosı IE oO AG0 


"Eingabe": FRINT 
N yet 
ec hast werden" TAECHE 
1 INFUT"Ihre Wahl "zart 
2 THEN [=)8) 


ya 


NT'"Wie gre ist Jer dur nittliche" 
"UT’persoenliche Vomhundertsatz "3DvHS 
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IF DvVHS>200 THEN DvHS=ZUo 
GOTO 240 
GOSUE 
IF DVHS=HENN THEN DvHS=Züo 
FRINT"Der durchsehnittliche persoenliche" 
FRINT"Vomhundertsatz betraegt :"3ROUNDEDVHS, 2), "X" 
FRINT:FRINT"Wieviele Versicherungsjahre" 
INFUT"haben Sie ";VJrFRINT 
INFUT"Wie hoch ist Ihr Steigerungssatz 
Ba=25445 
JR=DvHS/100#*Ba#VJ#STS/ 100 

INT:FRINT:FRINT 
FRINT"Ihre Jahresrente betraegt "; ROUND (JR,Z 
FRINT:FRINT"Das sind monatlich"; ROUND (IR/12 
END 
\ Unterpragramm zur Berechnung des 

M durchschnrittlichen persoenlichen 


50 aaa 5 
4044 j 7,5602, 6101, . 
8467 ,9 : d 19, 10942, 


dhvtideN ı 
INT"In weil Jahr haben Sie begonnen" 
IN UT"Beitraege zu zahlen "y.3lf 
F >: j1=VALLJIE) 
53 THEN 470 
welchem Jahr 


NT" Een Sie Ihr Eruttojahresverdienstk" 
wer die folgenden Jahre an »"sf 
TO 32 
A ii Bene "isn INFUT biviid 
Wer vti)/dbvtid#1ün 
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FRINT:FRINT:FRINT"Geben Sie bitte den Umfang" 
INFUT"der Beitragszeit in Monaten an "zmo 
DvHS=we/mo#12 

CLS: RETURN 

REM Unterprogramm Warten 

LOCATE 5,25 

FRINT"Eitte eine Taste druecken 1!" 

» F=INKEYEF 

IF x#="" THEN 680 

21.5: RETURN 
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Variablenliste: 


a = Antwort "Menüauswahl" 

Ba = Allgemeine Bemessungsgrundlage 

bjv(i) = Bruttojahresverdienst 

dbv(i) = durchschnittlicher Bruttojahresverdienst 
DvHS = durchschnittlicher Vomhundertsatz 

i = Laufindex 

jl = Jahresangabe (Beginn der Beitragszeit) 


jJ1$ = Eingabefeld für jl 


jJ2 = Jahresangabe (Ende der Beitragszeit) 


j2$ = Eingabefeld für j2 

JR = Jahresrente 

mo = Beitragszeit in Monaten 
STS = Steigerungssatz 

VJ = Versicherungsjahre 


we = Werteinheit (Prozentzahl, die aus dem Vergleich 
von bjv(i) mit dbv(i) resultiert) 
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Programmbeschreibung: 


Satz 10- 60 : Überschrift 
Satz 70 : Speicherplatz wird reserviert 


Satz 80-150: Abfrage, ob der Wert für DvHS bekannt ist 
oder berechnet werden soll und entsprechen- 
de Programmverzweigungen 


Satz 160-190 : Der Wert für DvHS ist bekannt und wird ein- 
gegeben. Ab Satz 240 geht es dann weiter. 


Satz 200-230 : Der Wert für DvHS ist unbekannt und zu sei- 
ner Berechnung wird ins Unterprogramm (Satz : 
330-640) verzweigt. Das Ergebnis wird aus- 
gegeben. Der Höchstwert für DvHS liegt bei 
200% (siehe auch Satz 180). 


Satz 240-260 : Es werden Werte für die Anzahl der Versi- 
cherungsjahre und für den Steigerungssatz 
angefordert 


Satz 270 : Das Feld Ba wird belegt 


Satz 280 : Die Jahresrente wird berechnet. Zu beachten 
ist, daß es sich bei DvHS und STS um Pro- 
zentzahlen handelt, die durch 100 dividiert 
werden müssen. 


Satz 290-310 : Ergebnisausgabe mit auf zwei Dezimalstellen 
gerundeten Werten 
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Satz 320 : Programmende 


Satz 330-640 : Unterprogramm zur Berechnung des DvHS 

330-350 : Kommentar 

360-460 : Bereitstellen und Einlesen der 
Daten für den durchschnittlichen 
Bruttojahresverdienst von 1924 
bis 1985 

470-540 : Eingabe der Beitragszeit (Anfang 
und Ende). Die Jahresangaben wer- 
den als Stringvariablen eingege- 
ben, um in den Sätzen 490 und 520 
eine möglicherweise mehrstellige 
Jahresangabe auf die letzten bei- 
den Stellen zu reduzieren (z. B. 
1985 auf 85). Die Sätze 500, 530 
und 540 dienen dem Abfangen un- 
sinniger Eingaben. 

550-600 : Die individuellen Bruttojahres- 
verdienste werden für den angege- 
benen Zeitraum angefordert. In 
Satz 590 wird die Werteinheit je- 
weils aktualisiert. 

610-630 : Eingabe eines Wertes für den Um- 
fang der Beitragszeit in Monaten 
und Berechnung des DvHS 

640 : Löschen des Bildschirms und Ende 
des Unterprogramms 


Satz 650-700 : Unterprogramm "Warten" 
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6.3. Der Lohnsteuerjahresausgleich 


Alle Jahre wieder ... müssen (oder sollten) Sie einen 
Lohnsteuerjahresausgleich durchführen. Entweder Sie haben 
von Steuerangelegenheiten überhaupt keine Ahnung und be- 
auftragen Jahr für Jahr einen Steuerberater, oder Sie be- 
raten sich aufgrund Ihrer beruflichen Tätigkeit oder aus 
Interesse am Thema selbst. In beiden Fällen kann Ihnen das 
Programm in diesem Kapitel behilflich sein. Einerseits 
bietet es nämlich eine Einführung in die Materie "Lohn- 
steuerjahresausgleich", andererseits ist es für den 
Steuerexperten mit BASIC-Kenntnissen noch beliebig aus- 
baubar. 


Sinn und Zweck des Programms ist es, den Erstattungsbetrag 
zu berechnen. Dazu ist im Programmablauf die Eingabe 

vieler persönlicher Daten erforderlich. Das Programm 

selbst ist zwar sehr umfangreich, aber eigentlich gar 

nicht so kompliziert, da es zu einem erheblichen Teil aus 
PRINT-Anweisungen besteht, die der Erläuterung der Ein- 
gaben dienen. Diese Eingaben werden dann in Abhängigkeit 
von den individuellen Daten häufig einfach aufsummiert, um 
die abzugsfähigen Größen, wie Werbungskosten, Sonderausga- 
ben und Vorsorgeaufwendungen zu ermitteln. Dabei werden in 
der Regel unsinnige Eingaben nicht abgefangen, d. h., daß 
beispielsweise die Eingabe von 10000 DM für Arbeitsklei- 
dung akzeptiert wird. 
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Auch die mathematischen Teile des Programms sind durchaus 
verständlich. Haben Sie zum Beispiel das Hintergrundwissen 
bezüglich der Kilometergeldberechnung oder der Zumutbar- 
keitsregelung bei Sonderausgaben, so können Sie die ent- 
sprechenden Programmteile auch ganz gut nachvollziehen. 
Nur die Berechnungen zu den Vorsorgeaufwendungen und der 
Vorsorgepauschale könnten Schwierigkeiten bereiten. Jedoch 
sind an diesen Stellen die Variablen z29 bis z77 gebildet 
worden, welche die entsprechenden Zeilen in dem Schema zur 
Selbstberechnung (erhältlich bei Ihrem Finanzamt) symboli- 
sieren. Die entsprechenden Programmzeilen wirken dadurch 
zwar nicht sehr elegant, dafür sind sie aber leichter 
nachvollziehbar. 


Nach der Berechnung des zu versteuernden Einkommens wird 
ein Wert für die Steuer laut Einkommensteuertabelle ange- 
fordert. Sollten Sie keine Tabelle griffbereit haben, so 

wird die Steuer geschätzt. Diese Schätzung kann unter Um- 
ständen etwas ungenau sein, da die Steuer, von einigen ge- 
speicherten Werten ausgehend, durch lineare Interpolation 
berechnet wird, obwohl der Anstieg der Steuerbeträge be- 
kanntlich progressiv verläuft. Zur ungefähren Angabe des 
Erstattungsbetrages ist dieses Verfahren jedoch ausrei- 
chend. 


Bisher ist nur vom Lohnsteuerjahresausgleich und nicht von 
der Einkommensteuererklärung die Rede gewesen. Zwar ergibt 
sich in beiden Fällen grundsätzlich die gleiche Jahres- 

steuer, allerdings können die verschiedensten Tatbestände 

- neben dem Einkommen - eine Einkommensteuererklärung er- 
forderlich machen. Eine Berücksichtigung dieser Besonder- 
heiten hätte eine enorme Ausweitung des Programms zur Fol- 
ge. Sie bleiben daher aufgefordert, in das Programm "ein- 
zusteigen" und Erweiterungen (bzw. Verbesserungen) selbst 
vorzunehmen. Die beim Finanzamt erhältliche Anleitung zum 
Antrag auf Lohnsteuerjahresausgleich und zur Einkommen- 
steuererklärung kann da schon eine gewisse Hilfestellung 
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leisten. Dies gilt auch immer dann, wenn die im Programm- 
ablauf ausgegebenen Erläuterungen nicht ausreichend sein 
sollten. 

Ansonsten sind Ihnen umfangreiche Steuerabsetzungen zu 
wünschen. Ob Sie aber den Kauf dieses Buches als Sonder- 
ausgabe von der Steuer absetzen können, wie es für Steuer- 
fachliteratur möglich ist, das erfragen Sie bitte bei 

Ihrem Finanzamt oder bei Ihrem Steuerberater. 


Programm: 


ramm zur Berechnung 
ä i beim" 


q 
NT"Bei dem fol 

FRINT"mIdL der Ein von OÖ oder 1 antwort. 
' T"Dabei ist O = neim und 1 


"sven FRINT 
ten Jan" 
prlichtig" 
igt ":pksFRINT 
im vergangenen Jahr" 
(twelche" 
lohn ame" 
nd} erhalten vs: FRINT 
vor dem 1.2. 1920 


aren "salsELS 


ID} 


une = ats FRINTSPFRINT 
=frauı/manrm wu dem" 
"nalesFRINT 
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FRINT"Ist Ihre Ehefrau/mann" 
INFÜUT"erwerbstaetig "ser:sFRINT 
IF er=0 THEN 470 . 

FRINT"War Ihre Ehefrau/mann" 

FRINT"im vergangenen Jahr" 
FRINT"rentenversicherungspflichtig" 
INFUT"beschaeftigt "spke 
FRINT:FRINT"Hat Ihre Ehefrau/mann im ver-" 
FRINT"gangenen Jahr Versorgungs-" 
FRINT"beruege (welche als Brutto-" 
FRINT"arbeitslohn anzugeben sind)" 
INFUT"erhalten "svsesFRINT 
CLS:FRINT"WIie hoch war Ihr Eruttoarbeitslohn" 
INFUT"im vergangenen Jahr tin DM} "zblti) 

IF vs=1 THEN vfbi{l)=bl(1)/10%*4 

IF vfb (1) 4800 THEN vfb(1)=4800 
bilt1}=blt1)-vibt1l)-äüö 

FRINT:FRINT"Wie hoch war Ihre Lohnsteuer im" 
INFUT"vergangenen Jahr (in DM "zist (tl): FRINT 
INFIT"und Ihre Kirchensteuer (in DM) 2 
FRINT 


INFUT"Wieviele Kinder haben Sie insgesamt "ski 
FRINT: FRINT"Wieviele Kinder werden von Ihnen" 
FRINT"nur unterhalten" 

FRINT"(d. h. sie sınd dem anderen Elternteil" 
INFUT"zugeordnet worden) "s;kiz 


ki=ki-kiz 

FRINT: IF er=0 THEN 590 

FRINT"Wie hoch war der Bruttoarbeitslohn" 
FRINT" Ihrer Ehefrau/mann im ver-" 
INFUT"gangenen Jahr (in DM) "z5bli(2) 

IF vse=1 THEN vfb (2) =b1l (2)/10#4 

IF vfb (2) 4800 THEN vfb (2) =4B00 
blil2)=bl (2) -vfb (DI -H00 

FRINT:FRINT"Wie hoch war die Lohnsteuer" 
FRINT"Ihrer Ehefrau/mann im ver-" 
INFUT"gangenen Jahr (in DM) "s;lst (2) 
FRINT: INFUT"und die Kirchensteuer (in DM) 
ELS 

REM sun 

REM Werbungskosten 

REM asus 

i=1 

FRINT TAB(9) "Werbungskosten" 

IF i=2 THEN FRINT TAB(9) "fuer Ihre Ehefrau/mann" 
FRINT: FRINT TAR{Z2) "Eingabe" 
FRINT:FRINT"Inhre Werbungskosten sind" 
FRINT" Ihnen bekannt 


790 FRINT"Sie wollen den Fauschbetrag" 

800 FRINT" von 564 DM einsetzen 

810 FRINT"Sie wollen Ihre Kerbungkosten" 

820 FRINT" berechnen 

830 FRINT:INFUT"Inre Wahl "zjal 

840 CLS 

850 IF alz>1l THEN 890 

850 FRINT:FRINT"Wie hoch sind Ihre” 

70 INFUT" Werbungskosten (in DM) "zwk(i) 

B30 GOTO 2140 

890 IF al=2 THEN wk (1)=58684:60T0 Z1820 

200 FRINT" Ihre Werbungskostenaufstellung"=FRINT 

710 FRINT"Aufwendungen fuer Fahrten zwischen” 

920 FRINT"Wohnung und Arbeitsstaette" 

930 FRINT:FRINT TAB(EE) "Eingabe": FRINT 

7406 FRINT"mit dem eigenen Fkw 1.7 

950 FRINT"mit oeffentlichen Verkehrsmitteln 2" 

9650 FRINT:INFUT"Ihre Wahl "za 

776 FRINT:FRINT"EBei wievielen Arbeitgebern waren" 

990 INFUT"Sie im letzten Jahr beschaeftigt "za 

790 FRINT+:FOR j=1l TO aa 

1000 IF | THEN ES 
IF a:>1 THEN FRINT j;".ter Arbeitgeber 

: IF a2=2 THEN INFUT"DM fuer Fahrkarten 

1530 IF a2=2 THEN 1080 

1040 INFUT"Arbeitstage je Woche "zajw 

1050 INFUT"Urlaubs- und Krankheitstage "zuk 

10860 INFUT"einfache Entfernung (in km) "zekm 

1070 fE=(ajwrülmukd) #0, Eötekm 

1080 FRINT: NEXT j:CL5 

1090 FRINT:FRINT"Wieviel DM hat der Arbeitgeber" 

1100 FRINT"im letzten Jahr steuerfrei fuer" 

ill INFUT"Fahrkosten ersetzt "sjerf 

1120 

1150 

1140 FRINT"Jahr an Beitraegen zu Berufs" 

1150 FRINT"verbaenden (z. E. Gwerkschaften)" 

1150 INFUT"gezahlt (in DM} ";bbw 

1175 FRINT:FRINT"und an Aufwendungen fuer" 
FRINT"Arbeitsmittel (x. E. Fachliteratur, 
'RINT"Arbeitskleidung „.„. ,„ bis 180 DM" 
INFUT"ohne Nachweis) "zjawa 
FRINT=:FRINT"und an Aufwendungen fuer" 
FRINT"berufliche Fortbildungmassnahmen'" 
INFUT" (in voller Hoehe mit Nachweis) "ıtbl 
FRINT:FRINT"und aus beruflichen Gruenden Um-" 

1250 FRINT"zugskosten (aus Vereinfachungsgruenden' 
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1250 FRINT"sollen 700 DM die Übergrenze fuer Ver-" 
FRINT"heiratete und 400 DM fuer Ledige plus" 
INFUT"125 DM je Kind sein) "surk 
C1.5 
FRINT"Mehr aufwendungen fuer Verpflegung" 
FRINT" (mit Nachweis des Arbeitgebers)" 
LOCATE 32,4: FRINT"Eingabe":FRINT 
'RINT"bei ueber 12-stuendiger Abwesen-" 
FRINT"heit von der Wohnung 
FRINT 
FRINT'"bei staendig wech nden Arbeits" 

INT"orten und ueber Li wendiger Ab" 
NT'"wesenheit von der Wohnung 
7 FRINT"bei Berufskraftfahrern" 
FRINT: FRINT" Aähwesenheit von" 
FRINT" mehr als 6 Stunden 
FRINT" Abwesenheit von" 
mehr als 12 Stunden 


5 ist nichts geltend zu machen 

FRINT:INFUT"Ihre Wahl "yad 

IF ad=5 THEN 1520 

'RINT: INFUT"an wievielen Tagen "zmvt 
nf vemvt#3:GOTO 1 
mfvenvt*5:G0T0 1 
mfvenvt#2:G50T0 1 

ad=4 THEN mfvenvt#1lö 


{INT"Mehraufwendungen fuer doppelte" 
INT"Haushaltsfuehrung" 


2 


uflichen Bruenden)" 


E :INT"Eingabe":FRINT 
"RINT"mit eigenem Hausstand 

INT 

:INT"ohne eigenen Hausstand 


nicht geltend gemacht werden 
INT: INFUT"Ihre Wahl ";a5 
: THEN Züad 


der ersten Fahrt zum" 
tigungsort und der letzten" 
. zum Wohnort nach Beendigung" 
INT"der Taetig rt" 
INT=FRINT TARG "Eingabe": FRINT 
FRINT'"'mit dem eigenen Fiw 
"RINT 
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ö FRINT"mit oeffentlichen Verkehrsmitteln 
FRINT: INFUT"Ihre Wahl "zaös:ıFRINT 

IF aös=1 THEN 1780 

INFUT"Freis der Fahrkarte (in DM} "zmdh 
EITO 1350 

INFUT"gefahrene HEilometer ":gkm 
mah=zgken#u. 42 

IF a5=2 THEN 1890 

FRINT:FRINT"Ihre Wahl fuer Ihre woechent-" 
INFUT"lichen Heimfahrten ";a7sFRINT 

1 o INFUT"Anzahl der Heimfahrten "zjanz 

1840 FRINT: IF a7=1l THEN 1870 

1850 INFUT"Freis einer Fahrkarte (in Di ";pfk 
180 mdhemdhtrptfk#anz:GOTO 1890 

1370 INFUT" Entfernung tin Em) "z;ekm 

13880 mdh=mdhrekm#ü ANZ 


189970 :FRINT"Eosten der iÜnterkunft (mit Nachweis) 
1900 IF a6=2 THEN FRINT"fuer die ersten zwei Wochen" 


INFUT"in DM ";kdu 

mdhemdntkdu 

FRINT:FRINT'"'Verpfleqyungskosten fuer die" 
NT"ersten zwei Wochen bzw. 10 Tarue bei" 

F NT"geltend gemachter Heimfahrt (mit Nach" 
INFUT"weis max. 25 DM pro Tag) "zvpk 
mähsmndh-tvpk 
IF as=2 THEN w 

FRINT:FRINT" fuer die Folgezeit (max. 4 DM" 
FRINT"pro Tag der auswaertigen" 
INFUT"Unterbringung "zvPpf 

madh=mdh+tvpf 

FRINT:FRINT"Wieviel (in DM) hat der Arbeitueber" 
INFUT"an Ersatxzleistungen gezahlt "sabe 

mdh= ndh-abe 


NT"Wenn Sie weitere Werbungskosten 
‚NT"machen koennen, geben Sie diese" 
WT"bitte (in DM) an "swwk 
(i)=fkrbbvtrawattbktsbk+turktmf vrmndhtrwwk 


geitbend' 


sind Der DUNgSROSERE in Hoshe von" 
wk (i);"erre hne Et worden 1" 


NTS:FRINT"Es wird Eomik der Fauschbetrag'" 
FRINT"von 564 DM angenommen" 


i Dewk Ci) 
2 THEN Ci.5 ELSE GSOSUE &150 
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245 #16) 
2480 
2470 
2480 
2490 


X 7-18) 


IF i=2 OR er=Ö THEN bl=b1l2(1)+b121(23:G6G0T0 2250 
E ekm=0: fk=Ürerf=Üürbbv=0: awa=sü:fbk=ü0 
mvt=Ö:mdh=Ö0:gkEm=0: anz=Ö 
vpf=Ürabe=0:wwk=ü 


REM ware 

REM Sonderausgaben 

REM SRH Rune 

FRINT"Bestimmung der Sonderausgaben," 
FRINT"die nicht Vorsorgeaufwendungen sind !" 
FRINT:IF er=Ö0 THEN 2350 

FRINT"Es wird vom Gesamtbetrag der Sonder aus-" 
FRINT"gaben ausgegangen, d. h. es wird nicht" 

FRINT"zwischen Ihnen und Ihrer Ehefrau/mann" 
FRINT"unterschieden." 

FRINT: FRINT TAB "Eingabe" 
RINT=:FRINT" Ihre Sonderausgaben sind" 

FRINT" Ihnen bekannt 

FRINT"Sie wollen den Fauschbetrag" 

FRINT" von 270 DM fuer Ledige bzw. 

FRINT" von 540 DM fuer Ehegatten" 

FRINT" einsetzen 

FRINT"Sie wollen Ihre Sonderausgaben" 

FRINT" berechnen 

FRINT: INFUT"Ihre Wahl "za8 

GLS 

IF ve=Ö THEN pb=370 ELSE pb=540 

IF aßi:1l THEN 2510 

FRINT:FRINT"Wie hoch sind Ihre" 

EEE (in DM) 


? TEN sa=pb:G60TO ZI40 
FRINT" Ihre Sonder ausgabenaufstellung":FRINT 
FRINT"Geben Sie an (in DM), welche Renten-" 
FRINT"zahlungen oder dauernde Lasten Sie" 
FRINT"im letzten Jahr geleistet haben." 
FRINT:FRINT"Beachten Sie, dass diese Ausgaben" 
FFINT"auf einer besonderen Verpflichtung" 
'RINT" (sozusagen unfreiwillig)" 
FRINT"beruhen muessen. "sFRINT 
FRINT"Weiterhin ist bei der Zahlung von " 
FRINT"Leibrenten zu beruecksichtigen, dass" 
FRINT"als Sonderausgabe nur der jeweilige" 
FRINT'"Ertragsanteil des Rentenrechts abzien- 
FRINT"abziehbar ist (ggf. entsprechende" 
FRINT"Informationen einholen !)." 
FRINT: INFUT"DM "srdi 


— 144 - 


CıLS 
'RINT"Geben Sie tin DM) Ihre Unterhaits-" 
FRINT"leistungen an den geschiedenen oder" 
FRINT"dauernd getrennt lebenden Ehegatten an." 
FRINT:FRINT"Sind diese Leistungen beim" 
FRINT"Empfaenger steuerpflichtig (s. Nachweis" 
FRINT"Anlage U), so jest ein Hoschstbetrag" 
FRINT"von Püod DM einsetzbar." 
FRINT"Ansonsten koennen die Unterhalts-" 
FRINT"leistungen nur als aussergemoehnliche" 
FRINT"Belastung (Hoechstbetrag Iöüöo DM)" 
'RINT"geltend gemacht werden." 
FRINT: INFUT"DM "zule 
C1.S 
IF kst (1)=06 AND kst (D)=0 THEN 2860 
FRINT"Wie hoch war Ihre Hirchensteuerer-" 
FRINT"etattung ım letzten Jahr." 
INFUT"DM "3 ö 
st (2) ker: FRINTSFRINT 
eben Sie Ihre Steuerberatungskosten" 
FRINT"an, sofern Sie diese nicht als" . 
‘INT"Werbungskosten geitend gemacht haben. 
2890 FRINT:INFUT"DM "zskssCLS5 
2900 FRINT"Hatten Sie Aufwendungen fuer Ihre" 
FRINT"Berufsausbildung oder fuer die Berufs-" 
FRINT"ausbildung Ihres Ehegatten "" 
FRINT"RBis zu einem Hoechstbetrag von je" 
INT"9O0 DM (12006 DM bei auswaertiger" 
FRINT"Unterbringung? sind diese Aufwendungen" 
FRINT"abziehbar.” 
2970 FRINT"Dazu gehoeren u. a. Studiengebuehren, " 
2980 FRINT"Eosten fuer Lernmaterial, aber auch" 
FRINT"Aufwendungen fuer Fahrten zwischen" 
FRINT"Wohnung und Ausbildungsstaette (ohne" 
FRINT"Nachweis werden bei Fahrten mit dem" 
FRINT"eigenen Fkw 0.42 DM je Kilometer aner-" 
FRINT"kannt), sowie Mehraufwendungen fuer" 
FRINT"Unterkunft und Verpflegung bei aus-" 
INT"waertiger Unterbringung). 
FRINT:FRINT"Wie hoch waren Ihre Aufwendungen" 
INFUT"<in DM) "yaebsCL5 
FRINT"Haben Sie Spenden und Beitraege fuer" 
FRINT" a) wissenschaftliche und kulturelle" 
FRINT" Zwecke" 
Fr b> mildtaetige, kirchliche" 
5 religioese und gemeinnuetzige" 
Zwecke" 
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FRINT"geleistet (mit Bestaetigung des" 
FRINT"Empfaengers) 7" 

FRINT:FRINT"Beachten Sie, dass fuer Funkt 
FRINT"b) jeweils hoaechstens 5 v.H. Ihrer" 
FRINT'"Einkuenfte beruecksichtigt werden" 
FRINT"koennen. Das sind in Ihrem Fall" 

FRINT {bl (1)#+bl (2993 7/10#E "DM." 

FRINT: INFUT"Geben Sie einen DM Betrag ar "sspb 


INT"Wenn Sie weitere Sonder ausgaben i ser Lena" 
FRINT"machen koennen, geben 8 
\ tin DM an "ıwsa 
a+skstraebtspb+trusa 


Sonderausgaben in Hoehe von" 
& inet wordem 1" 


somit der Fauschbetrag'" 
YGENEMMEM. " 


PRIN Ts IF er=Ö THEN 
FRINT"Es wir vom { wnebetrag der Vor sorge" 
FRINT"aufwendungen ausgegangen, Un ; 
INT"nicht zwi em Ihrem me Ihre 
INT"Eherrau/mann unterschieden." 
@e den Arbeitnehmer an 
zum 


uch, 


INT"glei chqg 
Fr INT"ohne « 


mung und/cader 
af ee an! 
folgenden Furlkken die" 


ntspre enden Di-Eetrasge (ggf. al" 
PRIN T'’zueglich der steuerfreien Zusch ie 
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36510 FRINT"z. BE. des Arbeitgebers) an, soweit sie" 
> FRINT"keine vermoegenswirksamen Leistungen" 
FRINT"eind s"SFRINT 
> FRINT"Freiwillige Angestelllen-, 
r YT"Re I= und Hoeher-" 
INFUT"versicherung "zarh 
FRINT"Freiwillige Kranker-' 
INFUT"versicherung . . “ "rfkEv 
Fr INT"Fr „illige Unfall" 
" "sicherung “ . ruy 
SER ENTERNG Kind 
u... "ılvs 
A ee {mi 
; ohne Hasko-, Hausrat" 
hutbzversicherung) "ıhpv 
a ar Fausp ak 
PMabimud 


"ıbbsa 
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4UBÖ 
4090 
4100 
4110 
4120 
4120 
4140 
4150 
41580 
4170 
4180 
4195 


IF 2472483 THEN z249=: 

IF 247251 THEN z52=z247 ELSE 

vp=249+:52 

GOTO 4740 

FEM Berechnung der Vorsorgepauschale fuer 

REM Ehegatten, die beide Arbeitslohn 

REM beziehen und von denen einer zum 

REM Fersonenkreis A und der andere 

REM zum Fersonenkreis EB enasre 

se pk=1 THEN i=1 ELSE i=- 
Sa=bl1(i1)/100*18 

IF i=1 THEN i=2 ELSE i=i1 


4200 258 


4210 


4270 
4290 
4290 


»+k1 *Z00+k ir#+15Ö0 
z606 THEN z6l=296 ELSE z6l=erdsü 
3I+258+z681:264=4580+kı #&üürk * 
64 THEN z685=z62 ELSE 
z6ö4)/2s:iIF 2670 re 267 
“47 THEN 269=267 


377 THEN vp=z70 ELSE vp=r77 


REM Der berechnete Wert fuer die Vorsorge- 
REM pauschale wird auf den naechsten durch 
REM 54 ohne Rest tLeilbaren vollen DM-Betrag 
REM abgerundet 
IF INT (vp> 7/5427 >1INTCINT (vp) 7/54) THEN 4400 
vp=INT(vp}:G60TO 4410 
vp=vp-1:G0OTO 43830 
FRINT"Eerechnete Vorsorgepauschale :";vp3 
REM Mindestbetragy 

“DO AND ve=ö THEN vp=300:G50T0 4460 

36 AND ve=1 THEN vp=s300:60T0 4480 
SOTO 4485 
FRINT=FRINT"Es wird der Mindestbelrag von"zvps; "DM" 
FRINT"angeset: 2t.." 
a2: THEN abv=z42 ELSE ebv=vp 

FRINT=FRINTSFRINT:FRINT"Äbziehbarer Betrag fuer" 
FRINT" Vor suorgeaufwendungen :"zabvz3 "DM" 
en 150 


REM REN Bei askungen 
REM ORRRRRRER EEE RE EEE HE 


4550 FRINT" Aussergewoehnliche Belastungen":FRINT 
4560 IF er=0 THEN 4510 
4570 FRINT"Es wird vom Gesamtbetrag der ausserge-" 
4580 FRINT"woennlichen Belastungen ausgegangen," 
4590 FRINT"d. h. es wird nicht zwischen Ihnen und" 
4500 FRINT"Ihrer Ehefrau unterschieden. ":FRINT 
FRINT"Naehere Informationen zu den tolgenden" 
FRINT"Funkten koennen Sie z. E. der Anleitung" 
FRINT"zum Antrag auf Lohnsteuer jahres-" 
4640 FRINT"ausgleich entnehmen. ":FRINT:FRINT:FRINT 
4650 FRINT"Koerperbehinderte und Hinterbliebene" 
4660 FRINT"koennen Fauschbetraege beanspruchen" 
4670 FRINT" (je nach Grad der Erwerbsminderung)" 
FRINT"oder Einzelnachweise erbringen." 
FRINT: INFUT"Geben Sie einen DM-Betrag an ";kub 
CLS 
FRINTSFRINT"Aufwendungen bis zu 1200 DM im Jahr" 
FRINT"koennen abgezogen werden, wenn Sie eine" 
© FRINT"Haushaltshilfe beschaeftigt hatten" 
4740 FRINT" (dann muessen Sie oder Ihr Ehegatte" 
4750 FRINT"mindestens &0 Jahre alt gewesen sein" 
4760 FRINT"oder ein Familienmitglied war krank" 
4770 FRINT"oder schwer koerperbehindert)," 
4780 FRINT"oder wenn Sie oder Ihr Ehegatte in" 
4790 FRINT"einem Fflegeheim untergebracht waren." 


4800 FRINT:INFUT"Geben Sie einen DM-Betrag an ";bhh 
4810 FRINTSFRINT 
FRINT"Eoennen Sie einen Freibetrag fuer" 
FRINT"besondere Faelle gelten machen (als" 
FRINT"Fluechtling, Vertriebener, Spaet-" 


FRINT"aussiedler usw.) 7?" 
FRINT:INFUT"Geben Sie einen DM-Betrag an ";fbf 
ELS:FRINT"Haben Sie Unterhalt fuer ein Kind" 
FRINT"geleistet, das Ihnen steuerlich nicht" 
FRINT"zugeordnet wird ? (wenn ja, dann" 
FRINT"koennen Sie sö0 DM angeben?" 
FRINT: INFÜUT"DM-Betrag ";fuk:sFRINT:FRINT 
FRINT"Wenn Sie alleinstehend und erwerbs-" 
FRINT"taetig sind, so koennen Sie, falls Sie" 
FRINT"Einder haben, einen Freibetrag von" 
FRINT"1200 DM geltend machen." 
FRINT: INFUT"DM-Betrag ";kbasCLS5 
FRINT"Wenn Sie beduerftige Ängehoerige unter-" 
FRINT"stuetzt haben, so koennen Sie Ihre" 
FRINT"nachgewiesenen Aufwendungen bis zu" 
FRINT"! DM fuer jede unterhaltene Fersaon" 
5010 FRINT"geltemd machen. Auf diesen Hoechst-" 
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3480 


INT"kuenfte der 
PRINT "Ranei e 
Fr 
"FR gehoerige 

; Sie fuer 
INT" fuer jed Faeckchen 30 a absetz 
FRINT" (weitere Aufwendungen mit Nachweis 
FRINT"z. EB, wenn Sie Ihre Angshoerigen b 
FRINT" ht haben einen F ‚hbetrag von" 
NT" DM oder wenn Sie ch von An!" 
[INT'gehoerigen aus den Ostblock hatten," 
ENT" LO DPI je Besucher und Besuchstag)." 
"RINT: INFUT"Geben Sie einen DM-Betrag an "zubp 
ELS:FRINT"Eoennen Sie einen Ausbildungsfrei-" 
FRINT"betrag fuer Ihre Kinder geltend" 
FRINT"machen 7?" 
FRINT"Es gibt folgende Freibetraege :" 
FRINTEFRINT" Kinder" 
FRINT" unker 18 veber 18" 
NT'"Auswaerts unber-!" 

NT'gebracht 900 DM 2a1ac DM" 
NT"and. Faelle nichts DM" 
XINT:FRINT"BAfoeß und Einkuenfte von mehr als" 

FRINT"Z4OO pn werden von dem Freibetrag" 


atrag "safb:CLS 
folgenden aussergewoehnlichen Be-" 
stungen werden nur beruecksic ed b, 

[NT"wenn sie Ihre zumutbar @ BRele 

INT"u rsteigen 5: Zumutbs 
Se: ee: f Li beruecksic 
FRI etz also zu den folger 
F Ka "St ichpunk er die Summe Ihrer tat-" 
FRINT"S«e hlichen Aufwendungen angeben." 
FRINT"Unter anderem gehoeren zu diesen Auf-" 
FRINT"we 
FRINT"Beerdigungskosten, Ehescheidungs 
FRINT" Kosten Koerperbehinderter, HKrar 
FRINT"heitskosten { weit nicht von dem" 
FRINT"Er@ nkasse ersetzt), Kurkosken," 
FRINT"'WI ed haffungsk 2n (fuer Hausrat 
FRINT"und Kleidung) usw." NT 

JT"Geben Sie einen DM-Eetrag an ";aahrCLS 

Zumutbark n 

[Fo ki=0 AND er=Ö THEN pge=5 
IF ki=0 AND er=1 THEN pge=4 
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pge=i1 


ERRRERKEREERRRRRER 2 


Ber en des 


NT"Ihr zu ersteuernees Einkommen" 
NT'"belasuft sich ve ak) "DM'SFRINT 
EREEREHER EHER ERS % EEE 
hnung des ee 
Beeren Bere 
:INT"Geben Sie den Betrag ib Ihre Lohn 
ar Laub « Fir ci EUR T ET a 
.. massgebender inköammen-" 
= n. Wenn Sie nur die" 
-Taste (ohne Angabe eines" 
diruee f wird eim" 
Jewer Et (wm er den wahrer" 


YT'Wert am bis zu 3 >M ueberzeichnen" 
NT"karın? fuer Ihre Lohnsteuer" 


stil VAL (st LFI): 50OTO 5940 
711 THEN stt 
465 THEN u=1) 
2197 THEN u=mO519:0=2E219: 2 


THEN us 


„er ein Einkommen dieser Hoshe zteht" 
nr Naeherungsverfahren zur Verfu # 
uchen Sie es also mit einer Eingabe. 

laut Tabelle "sstt:60OTO 5745 
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370 ze 
3970 [I 
59780 FRINT" Ein“ Jahres Ausgleichs" 
5990 FRINT" behalten steuer betrag'" 
OO FRINT"Lohn="sFRINT"steuer"; 
FRINT USING "4HkssteHsiH" 4 ROLIND (Let (1)+let (2) 35 
FRINT USING "4HHskteHsHttHH "5 ROUND (stt) 3; 
FRINT USING "HH" ROUND (lst (1) +lest (DD -stt) 
FRINT"Hirchen-":FRINT"esteuer"; 
FRINT USING "Het" 5 ROLIND (kst (OL) +kst (DD) ) 5 
FRINT USING "hssktskHsiH" 5 ROUND Ciks); 
FRINT USING "HHetshHHH" ROUND Grek) 
FRINT:FRINTEFRINT 
‚attungsbetrag 3"; ROUND (Let OL) +Let (2) 


PRINT:PRINTEFR 
FRINT"Es handeit sich um gerundete Werte," 
' INT TAEKIEZI"Programmende" 


END 
REM UF Warten 


@ Taste druescken' 
I FE" THEN SLBU 


RN 
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Variablenliste: 


Die Variablen werden hier nicht alphabetisch geordnet, 
sondern nach ihrem Auftreten in den einzelnen Programm- 
teilen aufgelistet, um eine bessere Übersicht zu erhalten. 


Angaben zur Person: 
ve = verheiratet (O=nein, 1=ja) 


pk = Personenkreis (1=Personenkreis A, 0=Personen- 
kreis B, siehe Schema zur Selbtberechnung) 


vs = Versorgungsbezüge (O=nein, 1=ja) 


al = Alter (O=nein, 1=ja, siehe Stichtag zum Alters- 
freibetrag) 


ale = Alter des Ehegatten (0,1) 

er = Erwerbstätigkeit des Ehegatten (O=nein, 1=ja) 
pke = Personenkreis des Ehegatten (0,1) 

vse = Versorgungsbezüge des Ehegatten (0,1) 

bI(1) = Bruttoarbeitslohn des Antragstellers 

vfb(1) = Versorgungsfreibetrag des Antragstellers 
bll(1) = bI(1)-vfb(1)-600, 600=Weihnachtsfreibetrag 
Ist(1) = gezahlte Lohnsteuer des Antragstellers 
kst(1) = gezahlte Kirchensteuer des Antragstellers 


ki = Anzahl der Kinder 
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kiz = Anzahl der sog. Zahlkinder 

bI(2) = Bruttoarbeitslohn des Ehegatten 

vfb(2) = Versorgungsfreibetrag des Ehegatten 
bIl(2) = bI(2)-vfb(2)-600, 600=Weihnachtsfreibetrag 
Ist(2) = gezahlte Lohnsteuer des Ehegatten 


kst(2) = gezahlte Kirchensteuer des Ehegatten 


Werbungskosten: 
i = Index (l1=Antragsteller, 2=Ehegatte) 


J = Laufvariable 


al-a7 = Menüantworten 
wk(1) = Werbungskosten des Antragstellers 
wk(2) = Werbungskosten des Ehegatten 


bI2(1) = bIl(1)-480-wk(1), 480=Arbeitnehmerfreibetrag 


bI2(2) = bIl(2)-480-wk(2), 480=Arbeitnehmerfreibetrag 


bl = Gesamtbetrag der Einkünfte = bl2(1)+b12(2) 
ajw = Arbeitstage je Woche 

ukd = Urlaubs- und Krankheitstage 

ekm = einfache Entfernung in Kilometer 


fk = Fahrkosten 
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erf = steuerfreie Fahrkostenerstattung durch den Ar- 
beitgeber 


bbv = Beiträge für Berufsverbände 


awa = Aufwendungen für Arbeitsmittel 


fbk = Fortbildungskosten 

uzk = Umzugskosten 

mfv = Mehraufwendungen für Verpflegung 

mvt = Anzahl der Tage bezüglich mfv 

dh = Mehraufwendungen für doppelte Haushaltsführung 


gkm = gefahrene Kilometer 


anz = Anzahl der Heimfahrten 

pfk = Preis einer Fahrkarte 

kdu = Kosten der Unterkunft 

vpk = Verpflegungskosten 

vpf = Verpflegungskosten für die Folgezeit 
abe = Arbeitgeberersatzleistungen 


wwk = weitere Werbungskosten 
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Sonderausgaben: 

sa = Sonderausgaben 

wsa = weitere Sonderausgaben 

pb = Pauschbetrag 

bll = bl-sa 

rdl = Renten und dauernde Lasten 

ule = Unterhaltsleistungen "Ehegatte" 

a8 = Menüantwort 
Kirchensteuererstattung im letzten Jahr 
gezahlte Kirchensteuer abzüglich der Erstattung 


Steuerberatungskosten als Sonderausgabe 


Aufwendungen für die eigene Berufsausbildung 


spb = Spenden und Beiträge für wissenchaftliche, kul- 
turelle, mildtätige, kirchliche, religiöse und 
gemeinnützige Zwecke 


Vorsorgeaufwendungen: 


ags = Arbeitnehmeranteil zur gesetzlichen Sozialver- 
sicherung bzw. andere gleichgestellte Leistungen 


agr = Arbeitgeberanteil zur gesetzlichen Rentenver- 
sicherung bzw. steuerfreie Zuschüsse des Arbeit- 
gebers zu gleichgestellten Aufwendungen 
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arh = freiwillige Angestellten-, Renten- und Höherver- 
sicherung 


fkv = freiwillige Krankenversicherung 
fuv = freiwillige Unfallversicherung 
lvs = Lebensversicherung und Sterbekasse 
hpv = Haftpflichtversicherung 
bbs = Beiträge an Bausparkassen 
vb = Versicherungbeiträge (insgesamt) 
z29 
= Hilfsvariablen (siehe Schema zur Selbstberech- 
. nung) 
z42 
Berechnung der Vorsorgepauschale: 


z46 


. = Hilfsvariablen (siehe Schema zur Selbstberech- 
. nung) 
z77 


vp = Vorsorgepauschale 


abv = abziehbarer Betrag für Vorsorgeaufwendungen 
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Außergewöhnliche Belastungen: 
agb = außergewöhnliche Belastungen 


kub = Aufwendungen, wenn Sie Körperbehinderter oder 
Hinterbliebener sind 


bhh = Beschäftigung einer Haushaltshilfe oder Heim- 
unterbringung 


ff = Freibetrag für besondere Fälle 


Freibetrag bei Unterhaltsverpflichtungen gegen- 
über Kindern 


ubp = Unterstützung bedürftiger Personen 

afb = Ausbildungsfreibetrag 

kba = Kinderbetreuungskosten Alleinstehender 
aab = andere außergewöhnliche Belastungen 


pge = Prozent des Gesamtbetrags der Einkünfte 


Berechnung des zu versteuernden Einkommens: 


vek = zu versteuerndes Einkommen = Gesamtbetrag der 
Einkünfte - Sonderausgaben - abv - agb - Alters- 
freibetrag - Haushaltsfreibetrag - Kinderfreibe- 
trag 


Berechnung des Erstattungsbetrages: 
stt$ 


= Lohnsteuer laut Einkommensteuertabelle 
stt 


- 158 - 


Einkommensuntergrenze für den Näherungslauf zur 
Lohnsteuerbestimmung 


Einkommensobergrenze für den Näherungslauf zur 
Lohnsteuerbestimmung 


Lohnsteuer zur Einkommensuntergrenze 


b = Lohnsteuer zur Einkommensobergrenze 
d=b-a 
zek = zu erstattende Kirchensteuer 


jks = Jahreskirchensteuer 
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Programmbeschreibung: 


Satz 10- 80 : Überschrift 


Satz 90- 690 : Angaben zur Person 


Satz 700-2240 : Werbungskosten 


Satz 2250-3350 : Sonderausgaben, die nicht Vorsorgeauf- 
wendungen sind 


Satz 3360-3940 : Vorsorgeaufwendungen 
3360-3780 : Eingaben 
3790-3940 : Berechnung der abziehbaren 
Vorsorgeaufwendungen 
Satz 3950-4510 : Berechnung der Vorsorgepauschale 


Satz 4520-5560 : Außergewöhnliche Belastungen 
5460-5520 : Berechnung er Zumutbarkeit 


Satz 5570-5630 : Berechnung des zu versteuernden Ein- 
kommens 


Satz 5640-6130 : Berechnung des Erstattungsbetrages 
5780-5930 : Schätzung der Steuer 
5940-6130 : Schlußausdruck 

Satz 6140 : Programmende 


Satz 6150-6190 : Unterprogramm "Warten" 
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.4. Ideenfundgrube 


- Arbeitslosengeld und Arbeitslosenhilfe - Anspruchs- 
voraussetzungen prüfen und Berechnungen vornehmen 


- der Warenkorb zur Bestimmung des Regelsatzes zur 
Sozialhilfe - speichern und manipulieren 


- Wohngeldtabelle programmiert 


- staatliche Förderung für Bauspare (Prämien und 
Steuervorteile) 


- abrufbare Prozeßkostentabelle 
- Durchleuchtung des Subventionsdschungels 
- der Staatshaushalt auf einem Blick 


- und noch vieles mehr 
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7. Haushalt und Gesundheit 


7.1. Vorbemerkung 


Um es gleich vorwegzunehmen: in diesem Kapitel wird kein 
Finanzbuchhaltungsprogramm für den Haushalt vorgestellt. 
Ein normaler Haushalt ist schließlich auch nicht wie ein 
mittlerer Handwerksbetrieb zu führen. Sofern Sie also in 

die Geheimnisse der doppelten Buchführung eingeweiht sind, 
können Sie diese hier getrost vergessen. 

Vielmehr wird Ihnen hier eine programmtechnische Hilfe für 
die Erhaltung (oder Erlangung) des Überblicks bezüglich 

der im Haushalt anfallenden Kosten geboten. 


Weiterhin geht es in diesem Kapitel um das Thema Gesund- 
heit. Es gibt vielfältige Möglichkeiten Ihren CPC zum The- 
ma Gesundheit einzusetzen. Man denke da zum Beispiel an 
Jogging- oder Diätpläne. Wir wollen uns hier hingegen mit 
einem Kalorienzählprogramm begnügen. Dieses Programm ist 
nicht zuletzt deshalb sehr praktisch, da es ohne größere 
Probleme für Diabetiker von Kalorien auf Broteinheiten 
umgestellt werden kann. Die Umstellung auf andere Nährwer- 
te ist natürlich ebenfalls möglich. 
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7.2. Der rationale Haushalt 


Je vernünftiger Sie mit Ihrem Geld umgehen, desto mehr 
können Sie sich leisten. Diese weitverbreitete Ansicht ist 
sicherlich richtig. Aber was heißt denn hier vernünftig? 
Für den Verbraucher (Verbraucher sind wir alle) ist es 
häufig kaum möglich die Qualität eines Produktes zu beur- 
teilen. Außerdem sind die Preise in unserer Wirtschaft 
ständig in Bewegung. Es ist also gar nicht so einfach, 

sich vernünftig zu verhalten. 

Daher ist es vielleicht sinnvoll zu fragen, wofür denn das 
Geld im Haushalt ausgegeben wird. Mancher, der sich diese 
Frage noch nie gestellt hat, wird sich wundern, wenn er 
sieht, wie sich seine Ausgaben auf die verschiedenen Kate- 
gorien wie Kleidung, Ernährung, Reisen etc. verteilen. 
Eine derartige Kontrolle Ihrer Geldausgaben umfasst natür- 
lich eine Unmenge an Einzelinformationen. Daher bietet 
sich der Einsatz Ihres CPC zur Verwaltung dieser Daten an. 


Das folgende Programm übernimmt diese Aufgabe. Es hat die 
folgenden Funktionen: 


- Geldausgaben eingeben (mit den Variablen "Warenbe- 
zeichnung", "DM-Betrag", "Kategorie" und "Datum") 
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- Kategorien bilden (bis zu 10 Kategorien können gebil- 
det werden) 


Geldausgaben und Kategorien 
einlesen 
abspeichern 
ansehen (in Form einer Tabelle) 
berechnen (für beliebige Zeiträume werden die DM- 
Beträge pro Kategorie ausgegeben. Die Darstellung 
der prozentualen Anteile der einzelnen Kategorien 


erfolgt in Form eines Balkendiagramms.) 


- Arbeit beenden 


Das Programm verwaltet also nicht nur die einzelnen Infor- 
mationen, sondern es übernimmt auch die wichtige Aufgabe 


Berechnungen durchzuführen. So können Sie am Monats- oder 
Jahresende leicht feststellen, für welche Bereiche (Kate- 
gorien) Sie wieviel Geld ausgegeben haben. 

Da nur 10 Kategorien gebildet werden können (mehr würden 
die Übersichtlichkeit einschränken), ist es sinnvoll, eine 
Kategorie "sonstiges" zu bilden, um Zuordnungsschwierig- 
keiten zu vermeiden. Das Einlesen müssen Sie vor der Ein- 
gabe neuer Daten erledigen, da ansonsten die schon einge- 
gebenen Informationen überschrieben werden. 


Für den Diskettenbetrieb ist die Einleseroutine zu ändern, 
da ein konkreter Dateiname angegeben werden muß. Dies kann 
folgendermaßen aussehen: 


795 INPUT "Wie heisst die Datei ";n$ 
800 OPENIN n$ 
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Insgesamt ist im Programm Platz für jeweils 1000 Eingaben 
reserviert worden. Sie können diese Zahl zwar auch noch 
erhöhen (Satz 80-90 des Programms, aber: Speicherkapazität 
Ihres Rechners beachten!), jedoch wäre eine Monats- oder 
Jahres-"Endabrechnung" sicherlich sinnvoller. 

Ansonsten ist das Programm weitestgehendst selbsterklä- 
rend. Nur nach der Ausgabe des Balkendiagramms wird die 
Aufforderung "Bitte eine Taste drücken" nicht ausgedruckt, 
da der zur Verfügung stehende Platz auf dem Bildschirm für 
das Diagramm verwendet wird und ein "Hochrollen" des Bild- 
schirms vermieden werden sollte. 


Programm: 


Kowal y 


bilde 
ur 
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=gaorien bildern." 


egariem"sFRINT #2 


"akEli) 


il 


acher Sie" 
» Eingaben: "sFRINT #1SFRINT Hl 
y abe S "a FRINT #l 

@ichmuang' 
INT Al 


-1:CLS:60TD 110 


gorie" 
ık@ga)aFRINT Hl 
OR Kiga) , THEN 530 
„"Datum" 
"Tag "stg(ga) 
1,"Monat "amolga) 
en jaflga) 
3,293 Jalga)=VAl(JeaFiga)) 


| Kategorien bilden 


; » 'THEN 6890 

FRINT"Folgende Kategorien bestehen bereits : 

FR INT: FOR i=1 TO ka 

As". te Kategorie zn"; ki) 
INTER FRINT 

koennen ma: 10 Kategorien bilden. 
ven Sie eine Ü a. wenn Sie keine" 
IN] we itere Kategori® mehr bilden wollen. "sFRINT 


v 


ie kas=11 THEN kaska-1l:50SU8 2050: 6070 110 
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:a;".te Kategorie ";:1INFUT kElka) 
Kadz="6" THEN ka=ska-1:CLS:6070 110 


M Geldausgaben und Kategorien einlesen 
REM 
ÖFENIN "" 
INFUT #9,ga,ka 
FÜR i=1 TO ga 
#7 ,WDE(i) 
FUT #9 ,dmii),kKlid,tgtid,moli),jati) 
i 
FOR i=1 TO ka 
INFUT #9,k#F(i) 
NEXT i 
CLOSEIN 


welchem Namen sollen die Infor-" 
"mationen abgespeichert werden "sn# 
NOUT n& 
FRINT #9 ,ga,ka 
FOR i=1 TO ga 
970 FRINT #9 ,wbE(i) 
1500 FRINT #9,dm(i),ktid,tgtid,moti),jati) 
10 NEXT i 
FOR i=1 TO ka 
FRINT #7, K#(i) 
’ NEXT i 
EL.OSEONT 
C1.5:60T0 110 
REM 
REF Geldausgaben und Kalegorien ansehen 
REM 
MODE Zraf=1l:ıh=20 
FRINT"Eingabe-Nr. Warenbezeichnung ". 
FRINT"DM-Betrag Kategorie Datum" 
FRINT:FOR i=af TO ga 
FRINT USING " HH "sis 
FRINT USING ' ö Ö'zwbE#E(id; 
FRINT USING HH HH dm (id); 
FRINT USING " {a} ö "SHEECK(iDdE 
FRINT USING "HH. ";tgti’smotidz 
FRINT USING "##"; jati) 
i=h THEN h=eh+Zü:af=af+2ü:GOSUB TüAc:GBOTD 1110 
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NEXT i 
GOSUR A050: MODE 1:G60TO 110 
REM 
REM Berechnungen 
EM 
Sie bitte an Zeitraum an, Fuß" 
Berechnungen & ar sollen. "SPRINT 
2" TAB 1 
[NTEFRINT" Tag"; TAB(1BI"Ta 
INT"Monat "3 TAB(1E) "Monat." 
RIN (18) "Jahr" 
UT au 


NFUT ala 
UNPLIT 
INFIIT em 


1510 
1490 


OF: (; Zi LE 
AND mai THEN 
OR tgti)>et 

(ka ddercdmti 


egariem' 
I 2 "aFRINT 
DM" 


ch 
W277 27272720 20 2 ZU Ser 


Llunmg des 
Anteile der 
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1580 FRINT'"Eategorien ar den Gesamtausgaben »" 
1590 pm=Öö 
1700 i 


WSING "4" pi) 


M 
FRINT"Hahen Sıe auch alle Informationen" 
FRINT"ordnung IETE i peicherk 7" 
RINT"Falls EHE ea ie @infach" 
XINT'"ein  ° u im Ve sten reicht die" 
KINT' j 
IMPUT 


i 
17 
1 
1 
1 
i 
17 
1, 
1 
1 
1 
l 
1 
1 
1 
1 
L 
LE 
19 
l 
1 
! 
1 
1 
A 
1 
1 


Auf bieder sehen 
Koennen mich Jetzt ausschalten" 


eıme Taste cdruescktn 


THEM 10 
„TURN 
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Variablenliste: 


a = Antwort "Menüauswahl" 
a$ = Antwortstring im Programmteil "Arbeit beenden" 
af = Schleifenanfangswert 


aja = Jahresangabe (Anfang) 
aja$ = Eingabefeld für aja 


am = Monatsangabe (Anfang) 
at = Tagesangabe (Anfang) 
dm(i) = DM-Betrag 


eja = Jahresangabe (Ende) 


ea$ = Eingabefeld für eja 


em = Monatsangabe (Ende) 

et = Tagesangabe (Ende) 

ga = Anzahl der Geldausgaben 
h = Hilfsvariable 

i = Laufindex 

j = Index 

ja(i) = Jahr der Geldausgabe 
ja$(i) = Eingabefeld für ja(i) 


k(i) = Kategoriennummer bezüglich einer Geldausgabe 
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k$(i) = Kategorienbezeichnung 
ka = Anzahl der definierten Kategorien 


ks(i) = Summe der Geldausgaben für die jeweilige Kate- 
gorie bezüglich eines Zeitraumes 


I = Schleifenanfangswert für das Zeichnen der Balken 


mo(i) = Monat der Geldausgabe 
n$ = Name der abzuspeichernden Informationen 


p(i) = Prozentsatz der Geldausgaben pro Kategorie bezo- 
gen auf die Gesamtausgaben 


pm = maximaler Wert bezüglich der Variablen p(i) 


pp(i) = Prozentsatz der Geldausgaben pro Kategorie bezo- 
gen auf den maximalen Wert pm 


su = Summe der Geldausgaben bezüglich eines Zeitrau- 
mes 


tg(i) = Tag der Geldausgabe 
wb$(i) = Warenbezeichnung 
x = Hilfsvariable zur Bestimmung des Schleifenend- 


endwertes in der Programmschleife zum Zeichnen 
der Balken 


auf zwei Dezimalstellen gerundeter Wert bezüg- 
lich der Variablen ks 
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Programmbeschreibung: 


Satz 10- 70 : Überschrift 
Satz 80- 90 : Speicherplatzreservierung 


Satz 100-250 : Menüauswahl und entsprechende Programmver- 
zweigungen 


Satz 260-600 : Eingabe der Geldausgaben 
In diesem Programmteil werden zwei Bild- 
schirmbereiche definiert. Während im ersten 
Fenster (linker Bildschirmbereich, defi- 
niert in Satz 370) die Eingaben erfolgen, 
werden im zweiten Fenster(rechter Bild- 
schirmbereich, definiert in Satz 320) die 
vorhandenen Kategorien ausgegeben. Somit 
hat der Programmbenutzer die einzelnen Ka- 
tegorien immer vor Augen. Nach erfolgter 
Eingabe wird dann in Satz 600 nur das erste 
Fenster geräumt. Sind noch keine Kategorien 
festgelegt worden (siehe Satz 290-310), 
wird ein Kommentar ausgegeben und zum 
Programmteil "Kategorien bilden" ver- 
zweigt. Die Eingabe einer 0 für die 
Variable "Warenbezeichnung" bewirkt den 
Rücksprung zur Menüauswahl (Satz 490). 
Das Eingabefeld für die Variable ja ist 
ein String, um in Satz 590 aus der mögli- 
chen Eingabe mit Jahrhundertangabe (z. B. 
1985) nur die letzten beiden Ziffern 
(also 85) im Feld ja(i) abzulegen. 


Satz 610- 760 : Bildung der Kategorien 
Falls schon Kategorien vorhanden sind, 
werden diese ausgegeben (Satz 640-680). 
Anschließend können Kategorien gebildet 
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werden. Wenn 10 Kategorien gebildet sind 
oder eine 0 eingegeben wird, erfolgt ein 
Rücksprung zur Menüauswahl (siehe Satz 
730 und 750). 


Satz 770- 900 : Geldausgaben und Kategorien werden einge- 
lesen 


Satz 910-1060 : Geldausgaben und Kategorien werden abge- 
speichert 
Beim Einlesen und Abspeichern von String- 
Variablen ist zu beachten, daß dies in 
jeweils gesonderten INPUT- bzw. PRINT-An- 
weisungen geschieht (siehe Satz 830-840 
bzw. Satz 990-1000). 


Satz 1070-1220 : Geldausgaben und Kategorien ansehen 
Dazu wird in Satz 1100 der Bildschirmmo- 
dus auf 80 Zeichen pro Zeile gesetzt. Mit 
Hilfe der PRINT USING-Anweisung erfolgt 


dann eine formatierte tabellarische Aus- 
gabe. Die Variablen af und h dienen der 
Ausgabebeschränkung auf jeweils 20 Ta- 
bellenzeilen. Vor dem Rücksprung zur Me- 
nüauswahl wird wieder auf den 40-Zeichen- 
Modus umgeschaltet (Satz 1220). 


Satz 1230-1910 : Berechnungen 

1260-1390 : Eingabe eines Zeitraumes für 
den die Berechnungen erfolgen 
sollen. Dabei wird zuerst der 
Eingabetext ausgegeben und 
anschließend werden die IN- 
PUT-Statements entsprechend 
positioniert. Aus den glei- 
chen Gründen wie in Satz 590 
werden die Jahresangaben als 
Strings eingegeben. 
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1400 : Kommentar 

1410-1420 : Die zu berechnenden Variablen 
su und ks(i) werden mit dem 
Anfangswert O belegt. 

1430-1510 : Liegt eine Geldausgabe inner- 
halb des angegebenen Zeit- 
raumes, so werden die Varia- 
blen su und ks um den ent- 
sprechenden DM-Betrag erhöht. 
Der Vergleich der Jahres-, 
Monats- und Tagesangabe zu 
einer Geldausgabe mit dem 
angegebenen Zeitraum ist so- 
zusagen nur für dieses Jahr- 
hundert gültig, da in die 
Jahresangabe nicht das zuge- 
hörige Jahrhundert eingeht. 
Beispielsweise wird die 
Jahresangabe 2005 genauso be- 
handelt wie die Angabe 1905. 

1520-1650 : Formatierte Ausgabe der auf 
zwei Dezimalstellen gerunde- 
ten DM-Beträge (pro Kategorie 
„und insgesamt). 

1660-1680 : Überschrift zur graphischen 
Darstellung der prozentualen 
Anteile der einzelnen Kate- 
gorien an den Gesamtausgaben. 

1690 : Die Variable pm wird gleich 0 
gesetzt. 

1700-1730 : Berechnung der Prozentätze 
der Geldausgaben pro Katego- 
rie bezogen auf die Gesamt- 
ausgaben und Bestimmung des 
maximalen Prozentsatzes pm. 

1740-1760 : Die Prozentsätze der Ausgaben 
pro Kategorie bezogen auf den 
maximalen Prozentsatzwert pm 
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werden berechnet. Dies dient 
dazu, den auf dem Bildschirm 
zur Verfügung stehenden Platz 
optimal auszunutzen (siehe 
Satz 1850-1880). 

1770-1780 : Ein Koordinatenkreuz wird ge- 
zeichnet. Bevor die Linien 
mit der DRAW-Anweisung ge- 
zeichnet werden, wird der 
Graphikcursor jeweils mit der 
PLOT-Anweisung auf den Koor- 
dinatenursprung gesetzt. 

1790-1800 : Die Koordinatenachsen werden 
beschriftet 

1810 : Die Indexvariable j wird 
gleich O gesetzt.. 

1820-1900 : In dieser Programmschleife 
wird die x-Achse beschriftet 
und die Balken werden ge- 
zeichnet. Die Variable i 
dient dabei der waagerechten 
Positionierung des Cursors, 
während die Variable j die 
Prozentsatzwerte pp(i) der 
einzelnen Kategorien identi- 
fiziert. Bei dem größten Pro- 
zentsatzwert ist auch die 
Variable x am größten, so daß 
dann die 18 zur Verfügung 
stehenden Zeilen für die Bal- 
keneinzeichnung (Satz 1860- 
1880) genutzt werden. Bei 
kleineren Werten pp(i) ver- 
größert sich der Schleifen- 
endwert in Satz 1860 entspre- 
chend, so daß dann kürzere 
Balken gezeichnet werden. In 
Satz 1890 werden direkt über 
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den jeweiligen Balken die zu- 
gehörigen prozentualen An- 
teile der jeweiligen Katego- 
rie an den Gesamtausgaben 
ausgegeben. Da dies gerundete 
Werte sind, kann es passie- 
ren, daß die Summe der ausge- 
gebenen Prozentsatzwerte 
nicht gleich 100 ist. 

1910 : Ende dieses Programmteils 


Satz 1920-2040 : Programmende 
Es besteht in diesem Programmteil noch 
die Möglichkeit - falls dies vergessen 
wurde - eingegebene Daten abzuspeichern. 


Satz 2050-2120 : Unterprogramm "Warten" 
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7.3. Ein elektronischer Kalorienzähler 


Jeder der schon einmal eine Diät gemacht hat weiß, daß es 
gar nicht so einfach ist, seine tägliche Kalorienzufuhr 

zu berechnen. Die Angaben in den Kalorientabellen beziehen 
sich nämlich in der Regel auf eine bestimmte Gramm- oder 
Literzahl. 

Sie stehen dabei beispielsweise vor folgendem Dreisatz- 
problem: 


eine Flasche Altbier (0.5 Liter) hat 210 Kilokalorien, 
wieviel Kilokalorien x hat nun ein Glas (0.2 Liter) ? 


Sie müssen eine einfache Gleichung aufstellen, um diese 
Rechenaufgabe zu lösen: 


x 


210 _x_ 
05 02 


x = 0.2*210/0.5 = 84 


Wollten Sie diese Rechnung für jedes Nahrungsmittel das 

Sie täglich zu sich nehmen durchführen, so hätten Sie eine 
Menge zu tun. Der Einsatz eines Taschenrechners wäre da 
schon ratsam. Mit Ihrem CPC und einem entsprechenden Pro- 
gramm läßt sich dieser Zeitaufwand aber noch reduzieren. 
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Sie müssen sich dann nur einmal die Arbeit machen und alle 
für Sie wichtigen Nahrungsmittel in das Programm eingeben. 


Die Eingabe erfolgt mit Hilfe des DATA -Statements. Jede 
DATA-Anweisung ist dabei wie folgt aufgebaut: 


DATA < Nahrungsmittel, Maßeinheit, Anzahl der Maßein- 
heiten auf die sich die Kalorienangabe bezieht, 
Kalorienangabe > 


zum Beispiel: 
DATA < Broetchen, Stueck (gleich 40 Gramm), 1, 111 > 


mit anderen Worten: I Brötchen (gleich 40 Gramm) hat 111 
Kilokalorien. 


Im vorliegenden Programm sind nur 15 DATA-Anweisungen 
exemplarisch aufgeführt. Diese Anweisungskette können Sie 
belebig erweitern oder verändern. Eventuell müssen Sie 
dann auch den Wert der Variablen k in Satz 100 ändern, da 
nur k DATA-Statements gelesen werden. 

Im Programmablauf ist bei der Kalorienberechnung nur das 
Nahrungsmittel und eine Zahl bezüglich der Menge einzuge- 
ben, also beispielsweise: 


Nahrungsmittel ? Broetchen 
Wieviel Stueck (gleich 40 Gramm) ? 2.5 


Als Ergebnis erhalten Sie dann: 


Das sind 277.5 Kilokalorien 


Die einzelnen Ergebnisse werden natürlich aufsummiert, so 
daß sich beispielsweise für die Nahrungsmittelzufuhr eines 
Tages ergeben könnte: 


Insgesamt ergeben sich somit 2428.5 Kilokalorien 
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Bei der Eingabe des Nahrungsmittels achten Sie bitte auf 
eine exakte Schreibweise, da ansonsten die Meldung 


Zu dem angegebenen Nahrungsmittel 
sind keine Informationen vorhanden 


auf dem Bildschirm erscheint. 


Programm: 


118 


- Frogramm zur Kalorien-" 
{7} "bererihnung" 
INTSFFRIN INTSFR 
TAB(9ı "Bernd Eowal, 


Anzahl der eine aber er 


DIM nEckdymEck) „amck) 
-,Gramımyi 


j#) e Aut 2 (gleich 40 Gramm’ ,i,1lil 
DATA Aal,ß ö 
n F 


Gramm) „1,38 
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3OSLE 140 


ler Anforderung" 
k A 


! Mi SF THEN AIG 
FINMT"Wi =) "md 
nakalıd fm 


n, 


une erg 


rar or Das 


> chrutacken | 


THEN 3! 
Z TURN 
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Variablenliste: 


a = Antwort "Menüauswahl" 


am(i) = Anzahl der Maßeinheiten auf die sich die Ka- 
lorienangabe bezieht 


em = Anzahl der eingegebenen Maßeinheiten 
en$ = eingegebenes Nahrungsmittel 

i = Laufindex 

jJ = Laufindex 

k = Anzahl der DATA-Statements 

ka(i) = Kalorienangabe 

k = berechnete Kalorienanzahl 

ksu = Summe der berechneten Kalorien 


l = Hilfsvariable 


m$(i) = Maßeinheit 


n$(i) = Nahrungsmittel 
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Programmbeschreibung: 


Satz 10- 70 : Überschrift 
Satz 80- 90 : Kommentar 
Satz 100 : Belegung der Variablen k 
Satz 110 : Speicherplatzreservierung 


Satz 120- 260 : Dem Programm werden Daten zur Verfügung 
gestellt 


Satz 1000-1020 : Die Daten werden eingelesen 


Satz 1030-1100 : Auswahlmenü mit den entsprechenden Pro- 
grammverzweigungen 


Satz 1110-1250 : Programmteil "Daten ansehen" 

1110-1190 : Alphabetisches Sortieren der 
Daten (siehe dazu auch Kapi- 
tel 2.4) 

1200-1240 : Jeweils 20 (siehe Hilfsvaria- 
ble I) Nahrungsmittel werden 
ausgegeben 

1250 : "Warten" und Rücksprung zur 

Menüauswahl 


Satz 1260-1460 : Programmteil "Kalorien berechnen" 

1260 : Die Variable ksu wird gleich 
0 gesetzt 

1270-1300 : Erläuterungen zum Programmab- 
lauf werden ausgegeben 

1310 : Eingabe eines Nahrungsmittels 

1320 : Falls die Leertaste gedrückt 

wird, erfolgt eine Verzwei- 

gung zur Ausgabe des Gesamt- 
ergebnisses 
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1330-1430 : Die durch Eingabe (Satz 1310) 
belegte Variable en$ wird mit 
den gespeicherten Variablen 
n$(i) verglichen. Bei Gleich- 
heit wird ein Wert bezüglich 
der Menge angefordert (1350), 
die Kalorienanzahl wird be- 
rechnet (1360), das Ergebnis 
wird ausgegeben (1370) und im 
Feld ksu wird die Summe aller 
Berechnungen gebildet (1380). 
In Satz 1390 und 1400 wird 
dann das Zwischenergebnis 
(bzw. Gesamtergebnis, siehe 
Satz 1320) ausgegeben. Nach 
einem Sprung ins Unterpro- 
gramm "Warten" (1410), er- 
folgt in Satz 1420 eine Ver- 
zweigung zur Menüauswahl 
(falls die Berechnungen abge- 
brochen werden sollen) oder 
zur erneuten Eingabe (1270). 
Bei Ungleichheit wird der 
Vergleich fortgesetzt (Sprung 
zum Satz 1430). 

1440-1460 : Ausgabe eines Kommentars, 
"Warten" und Verzweigung zur 
erneuten Eingabe, falls sich 
der Name des eingegebenen 
Nahrungsmittels en$ nicht un- 
ter den gespeicherten Varia- 
blen n$(i) befindet. 


Satz 1470 : Programmende 


Satz 1480-1530 : Unterprogramm "Warten" 
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.4. Ideenfundgrube 


- abrufbare Preislisten z. B. für Obst und Gemüse 
- Organisation der Haushaltsarbeit 
- Ordnung in der Tiefkühltruhe 
Rezeptkartei für Hobbyköche 
persönliches Gesundheitsarchiv (Blutzucker-Werte, 
Kreislauf, Puls usw. erfassen, berechnen und be- 
werten) 
Diätpläne 
Jogging- und Fitnesspläne 


Risikoberechnungen (z. B. die Berechnung der 
Lebenserwartung in Abhängigkeit vom Rauchen) 


und noch vieles mehr 
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8. Ihr Rechner und Ihre Hobbys 


8.1. Vorbemerkung 


Dieses Kapitel ist vielleicht eines der interessantesten 

in diesem Buch, da Sie den CPC für die Pflege vieler 
Hobbys einsetzen können. Egal ob Sie nun Briefmarken sam- 
meln oder Anhänger einer bestimmten Sportart sind, mit 
einem Computer und den entsprechenden Programmen läßt sich 
vieles einfacher gestalten. Das reicht von der Übernahme 
organisatorischer Arbeiten (wo finde ich diese oder jene 
Briefmarke) bis hin zur direkten Ausübung eines Hobbys 
(damit ist nicht das Programmieren selbst gemeint, sondern 
z. B. das Musizieren mit dem Computer für den Musikbe- 
geisterten). 

Natürlich ist es hier nicht möglich, auf alle nur denk- 

baren Einsatzmöglichkeiten Ihres Rechners näher einzuge- 
hen. Vielmehr nehmen zwei Programmbeispiele einen breiten 
Raum ein, die Ihnen die technischen Möglichkeiten Ihres 
CPC verdeutlichen sollen. Das sind einmal die exzellenten 
Graphikeigenschaften und zum anderen die hervorragenden 
Möglichkeiten der Musikprogrammierung. Diese beiden An- 
wendungsbereiche sind bisher auch ein wenig vernachlässigt 
worden. Ein drittes Beispiel beschäftigt sich mit König 
Fußball, da der Fußball immer noch die beliebteste Sport- 
art und somit Hobby vieler Leute in unserem Land ist. 
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Viele weitere Anwendungsbereiche sind jedoch denkbar. In 
der Ideenfundgrube zu diesem Kapitel finden Sie dazu ei- 
nige Anregungen. Sie bleiben also wiederum aufgefordert, 
ausgehend von den hier gemachten Vorschlägen, auf Ihre 
persönlichen Bedürfnisse zugeschnittene Programme zu ent- 
wickeln. Vielleicht hilft Ihnen Ihre Liebe zu Ihrem Hobby 
über die unter Umständen auftretenden Schwierigkeiten bei 
der Verwirklichung Ihrer Software-Wünsche hinweg. Viel- 
leicht wird jedoch auch das Programmieren zu Ihrem neuen 
Hobby (falls es das noch nicht ist). 
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8.2. Malen, zeichnen und die Erstellung von Graphiken 


Im heutigen EDV-Markt zeichnet sich ein unverkennbarer 
Trend zu graphikfähigen Systemen ab. Da die Tastatur der 
Rechner bei der Erstellung von Bildern häufig überfordert 
ist, sind in den letzten Jahren neue Schnittstellen zwi- 

schen dem Computer und dem Menschen entwickelt worden. Bei 
diesen Schnittstellen handelt es sich quasi um neue Ein- 
gabegeräte. Neben dem schon Jänger bekannten Joystick sind 
insbesondere die Instrumente "Maus" und Graphik-Tablett zu 
nennen. Vor allem das Graphik-Tablett ähnelt dabei dem 
konventionellen Gedankenträger Papier. Diese zusätzlichen 
Eingabegeräte sollen jedoch im folgenden unberücksichtigt 
bleiben, da die Darstellung der professionellen Graphik- 
Verarbeitung sicherlich den Rahmen des vorliegenden Buches 
sprengen würde. Sollten Sie hingegen über das vergleichs- 
weise einfache Instrument Joystick verfügen, so ist eine 
Änderung des hier vorgestellten Graphik-Programms mit we- 
nigen Handgriffen (siehe Benutzerhandbuch) zu erledigen. 
Mit Hilfe des vorliegenden Programms können Sie beliebige 
Bilder (Graphiken oder Zeichnungen) erstellen, die Sie ab- 
speichern und wieder einlesen können. Ob das nun direkt 
eine künstlerische Arbeit wird, oder ob Sie den Grundriß 
eines Hauses aufzeichnen, bleibt Ihnen überlassen. Auf je- 
den Fall werden die jeweils aktuellen x- und y-Koordinaten 
auf dem Bildschirm angezeigt (rechts oben die y-Koordinate 
und rechts unten die x-Koordinate), um die Darstellung 
exakter technischer Zeichnungen zu ermöglichen. 
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Zur Steuerung des "Stiftes" auf dem Bildschirm werden im 
Programmablauf einige Tasten mit speziellen Funktionen be- 
legt. Sofern es sich dabei um INPUT-Anweisungen handelt, 
vollzieht sich die Eingabe farblos, d. h. der "Stift" und 

das "Papier" haben die gleiche Farbe, um das Bild der Gra- 
phik nicht zu beeinträchtigen. In der Regel wird jedoch 

der Wert der gedrückten Taste mit Hilfe der Anweisung 
INKEY$ zurückgegeben. Die ENTER-Taste muß dann bekanntlich 
nicht betätigt werden. 

Im Gegensatz zu den vorangegangenen Programmen werden hier 
also keine Erläuterungen zur Programmbenutzung ausgegeben. 
Entweder haben Sie die Bedeutung der Steuertasten im Kopf 
oder Sie benutzen die folgende Aufstellung: 


Steuertaste Bedeutung 


t Linie nach oben 


Linie nach rechts 


— 
} Linie nach unten 
a 


Linie nach links 


a farblose Linie bzw. 
"radieren" Anfang 


b farblose Linie bzw. 
"radieren" Ende 


k Kreis 
bel. Zahl (gr. ENTER) Radius in Pixel 
bel. Zahl (gr. ENTER) Winkel in Grad 
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Steuertaste 


für die Steigung: 

bel. Zahl (gr. ENTER) 
bel. Zahl (gr. ENTER) 
COPY-Taste 

kl. ENTER 


bel. Zahl (gr. ENTER) 
bel. Zahl (gr. ENTER) 


b (gr. Enter) 
r (gr. Enter) 
s (gr. Enter) 


Bedeutung 


Diagonale bzw. durchge- 
zogene Linie 


x-Koordinate (waagerecht) 
y-Koordinate (senkrecht) 
Linie ziehen 

Beendingung dieser Funk- 
tion 


ausgefüllter Kreis 
Radius in Pixel 
Winkel in Grad 


Farbänderung 
Farbstift wird blau 
Farbstift wird rot 
Farbstift wird schwarz 


Programmende 


Nachdem Sie die Taste "s" gedrückt haben, geben Sie PEN | 
ein, um den Cursor wieder sichtbar zu machen. 


Die ausgegebenen Erläuterungen sind auf die Anwendung ei- 
nes Cassettengerätes ausgerichtet. Für den Diskettenbe- 

trieb sind daher die Sätze 150, 190, 260, 310 und 320 ent- 
sprechend zu ändern. Weiterhin ist dann in den Sätzen 200 
und 300 ein kürzerer Dateiname zu wählen. 
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Da der Umgang mit diesem Programm Schwierigkeiten bereiten 
könnte, ist im Anschluß an die Programmbeschreibung ein 
kleines Beispiel aufgeführt, in dem alle Steuertasten min- 
destens einmal berücksichtigt werden. Auch die Programmbe- 
schreibung selbst ist etwas ausführlicher, da der eine 

oder andere Leser vielleicht Probleme mit den Graphik-An- 
weisungen hat. 


Programm: 


NT"I1? Frogramm zur Erstellung 
NT TAE(7 
tern ges chermt und 
ngelesen werden kann 
INT 
TARB(11)"Bernd HKowal, 1985" 


75 GOSLE 


100 
110 
120 
1.30 


140 


BORDER 
In ü 
INK 

INE 2,6 
INK 2,11 


FRINT"Soll eine Zeichnung von 
INFUT'"eingelesen werden (Jj/n) - 
IF nj$e"n" THEN FRINTIFRINT:GOTO ZA 
IF onJ# ä j 

FRIN INT=F NT "pr FL.AyY then 


GFENIN "Zeichnung" 
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chrung b Graphik, 


any key 


=40 


Sie nlkre die Ausgangskoordinaten" 
den Graphikcursor an »2"s PRINT 
rdinabe "ax 


X 
ordinate ";y:FRINT:SPFRINT 


ichnung auf Cassette" 
t werden (j/mnd "ajnE 


settenspeicherung" 


5 and FL.AY then any key" 


AND nj#="j" THEN CLOSEIN:FEN Ö:END 
Ir 
THEN 
THEN % 
THEN 
THEN 


THEN INFUT #9 a GOTO 460 


1010 
FEN CH ELDSEOUT:IEND 
EN 1: FRINT 
EN ir N Y 


=i sUumf arg 
BE: THEN &40 
T #9,r,w:GOTO 870 
G:LOCATE 1,12 INFUT r 
2 1,1: INFUT wsFEN f 
3" THEN FRINT #9, 2#: FRINT #9,r,w 
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DES 
FOR i=1 TO w 
FLOT 24+r#=COS(i) ,ytr#5IN(i),F 
NEXT i 
PLOT xy; F 
GOTD AK 
REM Diagonale 
IF nj#="n" THEN 760 
INFUT #49,x21,y1:GOTO 790 
' FEN ÖrLÖCATE 1,1: INPUT 1 
fi „1:2 INFUT yilsFEN # 
ij" THEN FRINT #9, aFfs FRINT #9,»1,yil 
. AND nj&="j" THEN CLOSEIN:FEN ÖrEND 
3" THEN INFUT #9,b#:60T0 820 
i " be"! nn 810 
'D" THEN zeit ‚=ytylsDRAW x ,y,f 


RINT y 
\ xINT #9, bb: 
IF 5" TMEN 46 
GOTO 790 
REM &a etuellter Kreis 
IF n33 n"” THEN 710 
INFUT 497,7 ,w: 50T0 940 
FEN G:L.OCATE 1,1: INFUT r 
LÖCATE 1,1: INFUT w:FEN f 
= jn$e"j" THEN FRINT #9, a#ı FRINT #9,r7,w 


hr #CO5 04) ,ytrr#5IN CL), f 
Kayıf 


Far Pbaender ung 
n)jJ#="n" THEN 1040 
INFUT 1 faFı60TG 1050 

1640 Pe JEATE 1,132 INFUT faFsFEN 1 
cc 3 “ 
1 060 
1070 IF # "5" THEN Fl 
3 5 ij" THEN FRINT #9, @#: FRINT 


UINT"Bilte eine Taste druecke 
$ pe"" THEN 11% 
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Variablenliste: 


a$ = String zur Steuerung der Zeichenbewegungen 
b$ = String zur Diagonalen- bzw. Linienzeichnung 


f = Farbe 


fa$ = String zur Änderung der Farbe 


i = Laufindex 


Jn$ = Antwortstring bezüglich der Frage, ob eine 
Zeichnung abgespeichert werden soll 


nj$ = Antwortstring bezüglich der Frage, ob eine 
Zeichnung eingelesen werden soll 


r = Kreisradius 
w = Winkelgröße 
x,y = Koordinaten des "Zeichenbrettes" 


xl,yl = Koordinaten zum Zeichnen einer Diagonalen bzw. 
Linie 
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Programmbeschreibung: 


Satz 10- 90 : Überschrift 


Satz 100 : Darstellung der Randfläche des Bildschirms 
in leuchtendweiß 


Satz 110-140 : Die PEN- bzw. PAPER-Nummern O0 bis 3 werden 
mit den Farben leuchtendweiß (Satz 110), 
schwarz (Satz 120), hellrot (Satz 130) und 
himmelblau (Satz 140) belegt 


Satz 150-160 : Abfrage, ob eine Zeichnung eingelesen wer- 
den soll 


Satz 170: Ausgabe zweier Leerzeilen und Sprung zum 
Satz 220, wenn mit der Eingabe von "n" ge- 
antwortet wurde 


Stz 180 : Ist nicht mit "j" geantwortet worden, wird 
zum Satz 150 verzweigt 


Satz 190 : Dieser Satz wird erreicht, wenn mit "j" ge- 
antwortet wurde. Es werden zwei Leerzeilen 
ausgegeben und es erfolgt eine Anweisung 
zur Benutzung des Datacorders (wie bei den 
vorangegangenen Programmen ist auch hier 
prinzipiell die Benutzung eines Disketten- 
laufwerks möglich). 


Satz 200 : Die Eingabedatei "!Zeichnung" wird eröffnet 


Satz 210 : Die Ausgangskoordinaten x und y für den 
Graphikcursor werden vom Band gelesen und 
es wird zum Satz 340 verzweigt 
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Satz 220-250 : Die Werte für die Koordinaten x und y wer- 
den angefordert 


Satz 260-290 : Es wird gefragt, ob die noch zu erstellende 
Zeichnung abgespeichert werden soll. Bei 
der Eingabe von "n" wird zum Satz 340 ver- 
zweigt und bei der Eingabe von "j" wird das 
Programm ab Satz 300 fortgesetzt. 


Satz 300-330 : Die Ausgabedatei "!Zeichnung" wird eröff- 
net, es wird eine entsprechende Meldung 
ausgegeben und die Werte der Variablen x 
und y werden auf Cassette gespeichert. 


Satz 340 : Verzweigung zum Unterprogramm "Warten" 


Satz 350-400 : Zur leichteren Handhabung des Programms 
erhalten folgende Tasten andere Zuord- 
nungen: die f -Taste (Satz 350) den Wert O 
(wie oben), die - -Taste (Satz 360) den Wert 
R (wie rechts), die } -Taste (Satz 370) den 
Wert U (wie unten), die + -Taste (Satz 380) 
den Wert L (wie links), die COPY-Taste 
(Satz 390) den Wert D (wie draw) und die 
kleine ENTER-Taste (Satz 400) den Wert S 
(wie stop). 


Satz 410 : Der Ausgangspunkt des Graphikcursors wird 
gezeichnet 


Satz 420 : Die Variable f wird auf 1 gesetzt, d. h. 
die Farbe des Stiftes (genauer Graphikcur- 
sors) ist bis auf weiteres schwarz 


Satz 430 : Ist nj$ gleich "j" (d. h. es wird eine 
Zeichnung eingelesen) und ist EOF=-1 (EOF 
ist nur dann gleich -1, wenn das Ende der 
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Eingabedatei erreicht ist), wird die Ein- 
gabedatei geschlossen und das Programmende 
ist erreicht. Die Anweisung PEN 0 führt da- 
zu, daß der sonst nach Programmende auf dem 
Bildschirm erscheinende Ausdruck READY so- 
zusagen farblos (für PEN wird die gleiche 
Farbe wie für PAPER benutzt) erfolgt, um 

das Bild der fertigen Zeichnung nicht zu 
beeinträchtigen. 


Satz 440 : Ist nj$ gleich "j", aber EOF<>-1, wird für 
die Variable a$ ein neuer Wert eingelesen 
und es wird zum Satz 460 verzeigt. 


Satz 450 : Wird keine Zeichnung eingelesen, so müssen 
die Werte für die Steuervariable a$ durch 
Tastendruck eingegeben werden. 


Satz 460-490 : In Abhängigkeit von dem Zeichen für a$ wird 
in der aktuellen Farbe (Variable f) eine 
Linie von der augenblicklichen Cursorposi- 
tion zur angegebenen x,y Position gezeich- 
net. 


Satz 500-510 : Ist a$ gleich a (a wie Anfang), so erhält 
der Graphikcursor die gleiche Farbe wie der 
Hintergrund, d. h. es können bestehende 
Linien "ausradiert" werden. Dies geschieht 
solange, bis a$ gleich e (e wie Ende) ist. 


Satz 520 : Ist a$ gleich k, erfolgt ein Sprung zum 
Programmteil "Kreisumfang" (Satz 610). Dort 
wird dann ein nicht ausgefüllter Kreis ge- 
zeichnet. 


Satz 530-550 : Entsprechende Programmverzweigungen erfol- 
gen, wenn a$ gleich g ("ausgefüllter 
Kreis"), gleich d ("Diagonale") oder gleich 
c ("Farbänderung") ist. 
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Satz 560 : Das Programmende (für den Fall, daß keine 
Daten eingelesen werden) ist erreicht, wenn 
für a$ ein s eingegeben wird. Die Meldung 
wird farblos ausgegeben (vgl. Satz 430). 
Die Anweisung CLOSEOUT schließt die Aus- 
gabedatei. Falls die Zeichnung nicht abge- 
speichert werden sollte, ist diese Anwei- 
sung für den Programmablauf nicht störend. 


Satz 570-580 : Während des Zeichenvorgangs wird der ak- 
tuelle x-Wert des Graphikcursors in der 
rechten unteren Ecke - und der aktuelle y- 
Wert in der linken oberen Ecke angezeigt. 


Satz 590 : Das Zeichen für a$ wird auf Band geschrie- 
ben, wenn die Zeichnung gespeichert werden 
soll 


Satz 600 : Zum nochmaligen Durchlauf des Programmteils 
Satz 430-590 erfolgt eine entsprechende 
Verzweigung 


Satz 610-720 : Ein Kreis wird gezeichnet 

610 : Kommentar 

620-630 : Ist nj$ gleich j, so werden die 
Werte für r (Radius) und w (Win- 
kel) vom Band gelesen und es wird 
zum Satz 670 verzweigt 

640-650 : Farblose (Pen 0) Eingabe der Wer- 
te für r und w in der linken 
oberen Ecke des Bildschirms 

660 : Falls dies gewünscht wurde, wer- 
den die Werte für r und w ge- 
sichert. Das Zeichen für a$ wird 
ebenfalls an dieser Stelle ge- 
sichert, da in Satz 720 ein 
Sprung zum Satz 430 erfolgt (der 
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Satz 590 ist im Programmablauf 
aufgrund der Verzweigung in Satz 
520 nicht erreicht worden). 

670 : Umschaltung auf Winkelgradmaß 

680-700 : In Abhängigkeit von r und w wird 
ein Kreis gezeichnet, genauer: 
die x,y-K.oordinaten eines jeden 
Punktes auf dem Kreis werden ge- 
plottet 

710 : Der Graphikcursor wird wieder auf 
den Kreismittelpunkt gesetzt 

720 : Sprung zum Satz 430 zur Eingabe 
eines weiteren Steuerzeichens 


Satz 730-870 : Eine Diagonale bzw. eine beliebige Linie 
wird gezeichnet 
730-780 : Kommentar, Abfragen und Eingaben 
analog zu den Sätzen 610-660 
790 : EOF Abfrage (vgl. Satz 430) 
800-810 : Die Zeichen für b$ werden einge- 


lesen oder eingegeben (durch Be- 
tätigen der COPY-Taste) 

820 : In Abhängigkeit von den Werten 
für xl und yl wird eine Linie 
gezeichnet, solange b$ gleich D 
ist 

830-840 : Die Koordinaten des Graphikcur- 
sors werden angezeigt 

850 : Die Zeichen für b$ werden bei 
Bedarf gesichert 

860-870 : Ist die kleine ENTER-Taste ge- 
drückt worden (bzw. ein "S" für 
b$ eingelesen worden), erfolgt 
ein Sprung zum Satz 430, anson- 
sten zur EOF Abfrage in Satz 790 


— 200 - 


Satz 880-1000 : Jeweils vom Kreismittelpunkt aus (Satz 
960), wird hier eine Linie zu jedem Punkt 
auf dem Kreisumfang gezeichnet (Satz 
970), um einen ausgefüllten Kreis darzu- 
stellen. Ansonsten ist dieser Programm- 
teil identisch mit den Sätzen 610-720. 


Satz 1010-1090 : Programmteil "Farbänderung" 

1010-1040 : Eingabe bzw. Einlesen des 
Zeichens für fa$ 

1050-1070 : Bei der Eingabe (bzw. dem 
Einlesen) von "b" wird der 
Zeichenstift blau, bei "r" 
rot und bei "s" schwarz 

1080-1090 : Schreiben (falls jn$ gleich 
j) des Zeichens für fa$ auf 
Band und Sprung zum Satz 430 


Satz 1100-1140 : Unterprogramm "Warten" 
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Beispiel zur Programmbenutzung: 


Nach dem Programmstart werden zuerst die Ausgangs- 
koordinaten mit den Werten 120 (für x) und 200 (für y) 
belegt. Daran anschließend kann nun eine Zeichnung er- 


stellt werden: 


Tastatureingabe 


— (bis x=170) 
a 


d 
150 (ENTER) 
200 (ENTER) 
1 mal COPY 
kl. ENTER 


(bis y=350) 


200 (ENTER) 
-150 (ENTER) 
1 mal COPY 

kl. ENTER 


e 
—— (bis x=470) 


a 


Erläuterung 


Linie nach rechts 
farbloser Stift "Anfang" 
Diagonale 

150 Einheiten nach rechts 
200 Einheiten nach oben 
zeichnen 

Diagonale "Ende" 
farbloser Stift "Ende" 
Linie nach unten 
farbloser Stift "Anfang" 
Diagonale 

200 Einheiten nach rechts 
150 Einheiten nach unten 
zeichnen 

Diagonale "Ende" 
farbloser Stift "Ende" 


Linie nach links 


farblosr Stift "Anfang" 
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Tastatureingabe Erläuterung 


d Diagonale 
-150 (ENTER) 150 Einheiten nach links 
-200 (ENTER) 200 Einheiten nach unten 
1 mal COPY zeichnen 
kl. ENTER Diagonale "Ende" 


farbloser Stift "Ende" 
(bis y=50) Linie nach oben 

farbloser Stift "Anfang" 
(bis y=200) Linie nach oben 

farbloser Stift "Ende" 


Farbänderung 
r (ENTER) rot 


Kreis 
150 (ENTER) Radius = 150 Einheiten 
360 (ENTER) Winkel = 360 Grad 


Farbänderung 
b (ENTER) blau 


ausgefüllter Kreis 
80 (ENTER) Radius = 80 Einheiten 
360 (ENTER) Winkel = 360 Grad 


Programmende 


Die entstandene Zeichnung ist sicherlich kein Kunstwerk. 
Zudem ist nicht eindeutig feststellbar, was denn nun ei- 
gentlich dargestellt werden soll. Lassen Sie also Ihren 
Interpretationen freien Lauf :.. 
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8.3. Wir machen Musik 


"Endlich" werden die einen, "um Gottes willen" werden die 
anderen sagen, denn in diesem Kapitel geht es um program- 
mierte Musik oder sagen wir besser um programmierte Klän- 
ge. 

Die Musikprogrammierung ist unter Computer-Anwendern eine 
umstrittene Angelegenheit. Sollte man das Musizieren nicht 
dem Menschen überlassen, der darin seine Gefühle und seine 
Vitalität zum Ausdruck bringen kann? Diese Frage soll hier 
bewußt unbeantwortet bleiben. Es sei nur daran erinnert, 

daß viele Pop-Gruppen heutzutage ausgiebigst mit Computern 
abeiten. 

Auf jeden Fall ist die Musikprogrammierung ein Kapitel für 
sich. Und Sie müssen natürlich erst einmal Musikkenntnisse 
haben, um Musik programmieren zu können, sonst bleibt es 
bei einzelnen Klängen oder gar Geräuschen. 

Bei Geräuschen muß es für Sie als CPC-Besitzer in der Tat 
nicht bleiben, da die Musik- und Klangeigenschaften des 
CPC ausgezeichnet sind. So können Sie - mit etwas Übung - 
einzelne Instrumente nachbilden und die programmierte Me- 
lodie über Ihre Hifi-Lautsprecher wiedergeben. 


Der Umgang mit den einzelnen Musik- Anweisungen ist jedoch 
nicht ganz so einfach. Daher ist das Programm in diesem 
Kapitel auch mehr ein Übungsprogramm, um Sie mit den Mu- 
sik-Anweisungen vertrauter zu machen. Sie können das Pro- 
gramm aber auch nutzen, um mit wenig Aufwand (im Vergleich 
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zur direkten Erstellung eines Musik-Programms) eine Melo- 
die zu erzeugen. Falls Sie noch keine Erfahrung auf dem 
Gebiet der Musik-Programmierung haben, sollten Sie Ihre 
Ansprüche ein wenig herunterschrauben und sich mit einzel- 
nen Klängen und Geräuschen zufrieden geben. Die Program- 
mierung einer Melodie folgt dann anschließend. 

Zu dem Programm ist noch zu sagen, daß es nur auf den drei 
grundlegenden Musik-Anweisungen SOUND (zur Erzeugung eines 
Tons), ENV (zur Definition einer Lautstärken-Hüllkurve) 
und ENT (zur Definition einer Ton-Hüllkurve) beruht. 
Wollen Sie die weiteren Musik-Funktionen und -Kommandos 
benutzen, so müssen Sie das vorliegende Programm entweder 
erweitern oder ein eigenständiges Musik-Programm entwik- 
keln. 

Ansonsten ist das Programm weitestgehendst selbsterklä- 
rend. Die folgenden Funktionen bietet es dem Benutzer: 


Musik-Anweisungen 


eingeben (nur die einzelnen Parameter) 


einlesen 
abspeichern 


verbessern (mit der Möglichkeit des Ansehens der 
vorhandenen Anweisungen und deren Löschung) 


abspielen 


Die Eingaben zu den fünf Abschnitten der Hüllkurven-Anwei- 
sungen sind durch Kommata voneinander zu trennen, also zum 
Beispiel: 


Schrittzahl, -größe, Pausenlänge 
Ab- 
schnitt | 5,5,2 (ENTER) 
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Erwähnt sei, daß Sie dieses Programm noch vereinfachen 
können. Und zwar können Sie einmal immer dann, wenn sich 
Programmteile wiederholen auf die Unterprogrammtechnik zu- 
rückgreifen und zum anderen können Sie die Variablen 

pl(i) ... p5(i) usw. usf. auch durch doppelt indizierte 
Variablen nach dem Muster p(j,i) für j = 1... 5 darstel- 

len. Darauf ist hier aus Gründen der Übersichtlichkeit 
verzichtet worden. 

Es ist ebenfalls darauf verzichtet worden, nicht erlaubte 
Eingabewerte abzufangen. In Ihrem Bedienungshandbuch sind 
die Eingabemöglichkeiten jedoch im einzelnen aufgeführt. 


Zum Schluß noch ein Tip: beim ersten Abspielen stellen Sie 
den Lautstärkeregler am besten etwas leiser ... 


TABFI"TEO = Musi kprmogr mm" 
INTEFRINT: INT 
Ri "Bernd EKowal, 


5 ,gp 
EI Et 


DIM ı 
En 
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FRINT"Arbeit beenden"; TARCH&I "S"SFRINTEFRINT: 
"ihre Wahl F 
al OR a THEM © 170 
ON a GOTG 5 
REM 
REM Musikanmei zungen eingeben 
REM 
FRINT TABL! 
INT TAB 
A ee 


"IMT 


Sie eine Ö 


aıird die 


FRINT 
INF "IT"E 


INPUT "Lau -Huellkurve 
INFUT" Ton 

INFLT"Ger 

IF 

Ci.5:60° TO 


Firm "Nummer 
wird die 


a ] ra «5 -Hna 4 " 
RINT TARA) ig" 
FRINT TABC4) 25 
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Fuer Pluimmen des 
a wird die Eingabe" 


: INPU 


ln 


wert] 


=köctet. 


„dti),1id,Ihüdd),thiäd,gpti) 


Ho'r 

#9,D 

#9, 

#9,p5G),g5tddyriti) 
+1 
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INFUT #9 ,n2(i} 

INFUT #9, ER ) 

INPUT 

INFUT 4 ! 

INFUT #5 Yaväl wait 
id ywsli? 


"Menue": FRINTSFRINT 
TA "Eingabe"sFRINT 

FRINT"V Pi 2 an" a FRINT 

INT" weis : ">" L "SPRINT 

{INT" ENV-Änwei: ; TAB) "E"EFRINT 
FRINT" EN = { 
FRINT"Vert 
FRINTEFRINT: 
INFUT" Ihre 


Ss; FRINT 
"itp(i) 
ala) 
INT"Laute er lie? wenn 
FRINT"Lau ch "simtE) 
INT" Tor- ellku a "sstihth) 
INT"Oer sc.h+Feriode "sgpti) 
INT INT . jiese Anweı sung" 
FRINTEFR (2 
FRINT"verbes 


NE" TARA" 


bleiben 7", TABt3ö) "I" SFRINTSFRINT 


tt wird geloescht 1" 
s0-1 
Girldetpcpekptjrldsdeydedij+l) 
+13 :1Ihtjselhtli+rt) 
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i&aG ctheijlethijtrliigptjiegetgirl) 
1670 1 . 


wird) ges] 
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ver=lih=evrev=1:50T0 620 
ver=Üsev=h 
ECLS:NEXT i 
C1L.5:50T0 1320 
FOR i=1 TO et 
FRINT"Die"z5i;".te ENT-Anweisung lautet :":FRINT 
FRINT"Huellkurvennummer :"sn2ti):FRINT 
FRINT" Schrittzahl ,-groesse,Fausenlaenge" 
FRINT"Ab-" 
FRINT"schnitt" 
FRINT TABCHASTARCLDIEL (CI ISTÄRBCZLI VII DE 
Im (aldwlti) 
TAE(C4)25 TARCLLILECL I ZTABCEIIVE IDG 
TARBZLDDIWE(CH) 
TAE(4> 3; TABC11 URCi)s TARA )vECida 
\ TAB i 
PRINT AEi(4> 4; Tacıil) t4ti)s TAR(AIIvVA4CLdS 
FRINT TAB(FLdmACH) 
RINT TARt4) 55 TABC11> LEG: TERCRLIVS CI): 
RINT TAECILIWS (I) 
FRINT=FRINT:FRINT"Solil diese Anweisung" 
RINT=FRINT TABCHTI "Eingabe": FRINT 
FRINT"verbesser t"; TABÜIS)"L" 
RINT"oder" 
FRINT"gelmescht "3 TAR(hös> "2" 
RINT" wer den 
INT"oder sn bleiben ?"3 TABEHS) "E" SPRINT 
INFUT" Ihre Mahl "3 


INTSFRINT: PRINT" Jet zt wird geloescht !" 
i TO et-1 

(j+r1l) 

an te == Jr) 

(je . (j+l) 

+1) av3tj) (3 - { ir) 

(yriisva4lj)evd(jrliiwd4lj)ewdtitrl) 

jagen) Velati+rldavscjhevätjitrl)swütjdewdchrl) 


1:C15:60T0 1320 
:FRINT"Dann geben Sie jetzt die" 
FRINT"neuen Werte ein :FRIMT 
h=zetset=i1:50TO 


REM Musikstueck abspieler 


"31 (1 der lem 


Bey 


vwd VE 


TO so 
i’,stpli)d,d(i),l(i) thtid,gpii) 


abspeichern 


49 ,50,8v,@U 


10 


said, lid, ihti),tnhti).gpti) 


i=1l TO ev 
#O,ni Ci) 


„q4ti) 
T#I,PBECII „ati ) 
\ 
n=l TO et 
TAHP,nEti) 
INTOHISELELS 
n 


T #7,t3(i) 
[INT #9,L4 01) ,v4altı) „wd4ti) 
IT #9,t50i1),v5ti1) ,wSti) 
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Musi! re 


= reicht die" 
:INT”L 
INFL IT 


sehen" 
Koesnmen mie ch h ausschalten" 


Taste druecken |! 


THEN 
EL.3: RETURN 
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Variablenliste: 


Die Parameter der SOUND-Anweisung: 
ks(i) = Kanal-Status 

tp(i) = Ton-Periode 

d(i) = Dauer 

l(i) = Lautstärke 

Ih(i) = Lautstärken-Hüllkurve 

th(i) = Ton-Hüllkurve 

gp(i) = Geräusch-Periode 

Die Parameter der ENV-Anweisung: 


nl(i) = Nummer der Hüllkurve 


pl(i) ... p5(i) = Schrittzahl (Abschnitte 1... 5) 


aldi) ... q5(i) = Schrittgröße (Abschnitte 1... 5) 
rl(i) ... r5(i) = Pausenlänge (Abschnitte 1... 5) 
Die Parameter der ENT-Anweisung: 

n2(1) = Nummer der Hüllkurve 

tl(i) ... t5(i) = Schrittzahl (Abschnitte 1... 5) 
vl(i) ... v5(i) = Schrittgröße (Abschnitte 1... 5) 


__wi(i) ... w5(i) = Pausenlänge (Abschnitte 1... 5) 
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Die übrigen Variablen: 

a = Antwort "Menüauswahl" 

a$ = Antwortstring 

et = Anzahl der ENT-Anweisungen 
ev = Anzahl der ENV-Anweisungen 
h = Hilfsgröße 

i = Laufindex 

J = Laufindex 

kl 

k2 = Schleifenanfangswerte 

k3 

k4 

k5 = Schleifenendwerte 

k6 

n$ = Name des Musikstücks 


so = Anzahl der SOUND-Anweisungen 


ver = Hilfvariable (gleich I, wenn Verbesserungen durch- 
geführt werden, ansonsten gleich 0) 
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Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70- 130 : Speicherplatzreservierung für 500 SOUND- 
Anweisungen und jeweils 15 ENV- bzw. ENT- 
Anweisungen 


Satz 140- 280 : Auswahlmenü 


Satz 290- 970 : Musik-Anweisungen werden eingegeben 

320- 410 : Menü 

420- 560 : Die Parameter der Sound-An- 
weisung 

570- 760 : Die Parameter der ENV-Anwei- 
sung 

770- 960 : Die Parameter der ENT-Anwei- 

sung 
970 : Beendigung der Eingabe 


Satz 980-1280 : Musik-Anweisungen werden eingelesen 
Die Schleifenanfangs- und endwerte werden 
so gewählt, daß auch ein Einlesen zusätz- 
licher Anweisungen möglich ist 


Satz 1290-2590 : Musik-Anweisungen werden verbessert 

1320-1420 : Menü 

1430-1740 : Die SOUND-Anweisungen werden 
auf dem Bildschirm ausgege- 
ben. Sie können verbessert 
oder gelöscht werden (Menü 
Satz 1520-1600). Zur Löschung 
einer SOUND-Anweisung dient 
die Programmschleife Satz 
1630-1670. Im Falle einer 
Verbesserung wird die Varia- 
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Satz 2600-2800 : 


Satz 2810-3080 : 


Satz 3090-3210: 


Satz 3220-3290 : 


ble ver gleich | gesetzt und 
es wird zum Programmteil 
"eingeben" (Satz 470) ver- 
zweigt (Rücksprung Satz 550). 
Im Feld h wird der aktuelle 
Wert für so gespeichert, da 
die Variable so im Programm- 
teil "eingeben" als Index 
dient. 
1750-2580 : Das gleiche geschieht für die 
ENV- und ENT-Anweisungen 
2590 : Ende dieses Programmteils 


Abspielen der Musik-Anweisungen 
Zuerst werden die Hüllkurven-Anweisungen 
und dann die SOUND-Anweisungen ausge- 
führt. Die indizierten Parameter werden 
dazu jeweils ohne Index dargestellt, da 
sonst die Parametervariablen aufgrund zu- 
vieler Zeichen die Fehlermeldung "impro- 
per argument" zur Folge hätten. 


Musik-Anweisungen werden abgespeichert 


Das Programm wird beendet 
Es besteht hier jedoch noch die Möglich- 
keit Musik-Anweisungen abzuspeichern, 
falls dies vorher vergessen wurde. 


Unterprogramm "Warten" 
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8.4. Die Fußball-Bundesliga 


Das Programm zu diesem Kapitel verwaltet die Ergebnisse 

der Fußball-Bundesliga und erstellt die entsprechende Ta- 
belle. Mit wenigen Handgriffen können Sie dieses Programm 
auch für andere Sportarten umschreiben. Sie müssen dann 
lediglich die DATA-Anweisungen, in denen die einzelnen 
Mannschaften aufgeführt sind -, und evtl. die Rangfolgebe- 
rechnungen für die Tabellenerstellung ändern. Die DATA-An- 
weisungen sind natürlich auch dann zu Ändern, wenn am Ende 
einer Saison Vereine in die Bundesliga auf- oder abstei- 

gen. 


Für die Benutzung des Programms ist die folgende Schritt- 
folge empfehlenswert: 


l. Schritt: Einlesen abgespeicherter Ergebnisse 

2. Schritt: Eingabe neuer Ergebnisse 

3. Schritt: Abspeichern der alten und der neuen Ergeb- 
nisse 

4. Schritt: Erstellung der Tabelle 


Zusätzlich können Sie sich jederzeit die entweder einge- 
lesenen oder eingegebenen Ergebnisse ansehen. Dabei be- 
steht dann die Möglichkeit, alle Ergebnisse einer einzigen 
Mannschaft auf dem Bildschirm auszugeben. 
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Erfolgt die Eingabe vor dem Einlesen, werden die eingege- 
benen Ergebnisse überschrieben. Dies läßt sich jedoch - 
falls dies gewünscht wird - durch eine Änderung des Pro- 
grammteils "Ergebnisse einlesen" verhindern: 


1(19) ,et2(18) 


In den Sätzen 1080 und 1100 werden neue Variablen gebildet 
(für die natürlich auch dimensioniert werden muß), deren 
Werte dann den für den weiteren Programmablauf relevanten 
asoluten Variablen (also plus vorheriger Eingabe) hinzu- 
gefügt werden. Weiterhin werden Anfangs- und Endwert der 
Schleife in Satz 1120 geändert, um ein Überschreiben schon 
vorhandener Werte zu vermeiden. 


Ein vielleicht entscheidender Nachteil dieser Programmver- 
sion ist jedoch, daß die Programmfunktion "ansehen" nun 
nicht mehr die Ergebnisse in der Reihenfolge ihrer Eingabe 


- 221 - 


wiedergibt. Insbesondere wenn Sie daran interessiert sind, 
die Ergebnisse einer speziellen Mannschaft in ihrer zeit- 
lichen Folge zu beobachten bzw. Trends bezüglich der Lei- 
stungsstärke in den verschiedenen Saisonphasen zu erken- 
nen, werden Sie vermutlich auf diese Programmversion ver- 
zichten. 


Programm: 


jaslıga" 


) bm& (1 
I 118) 


Bayern Muenchen,E es clear 
Ygladbach, MG, Hanburger 58V, MEV 
INK, VL 


M: ae im; IM, Bayer Verdingen,Bl! 
trans E ]' Frankfurt, Ef 
halke u ‚Seh, Bayer Leverkus en,BL 
Kal slautern, Hl ,Borı a Dortmund, 


ya 


bm# © I, kEF(Ii) 


m stel i wu 1g) "TAB "ES FREINT 
stellen und" 
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FRINT"Frogramm beenden", TABÜFS)"S"SPRINT 
FRINTEFRINT: NEUN TREE Wahl "sarCcı.S 
IF a@l OR HE 
ON a GOTO Tau, 700,1040,1180, 1320 
REM 

1 Ergebnisse eingeben 
FIEM 
WINDOW #1,17,40,1,25 
ER 4i "Benutzen Sie bei der" 
F "#1,"Einge die folgender 

"#1, "Abkuerzungen 2": 


INT #1 ,bn&(i)g "=" 
NEXT i 


‚'ergebnisse sol" 
"len einge 

INF #2, "wer den "3 

FOR - 

INF 


stHiderhhr" tig 


#2,: NEXT 
IOTO 220 


Ergebisse ansenen 


ansehen"; TEEDIO) "LS FMINT 
Mann" 


"inre Wai e 
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IF a@1 OR a=3 THEN MODE 1:60T0 720 
1=0:0N a GOÜTO 810,880, 1020 
FOR i=1 TO as 
FRINT siEFE(i)3"- "E2Eti); TABLA4S)S st. Fi) 
l1=1+1:IF 1l=18 THEN l=ü: 60SUB 1750 
NEXT i 
850 GOSUB 1750: MODE 1:50T0 720 
860 FRINT"Benutzen Sie fuer die Eingabe die" 
870 FRINT" folgenden Abkuerzungen z": PRINT 
280 FOR i=1 TO 18 
8?0 FRINT bm&{ii)g"="sichtli) 
Fan NEXT i:FRINT 
710 INFUT"Welche Mannschaft ";m£:liS 
FOR i=1 TO 18 
: THEN m&=bm& (i) 


i=1 TO as 
nFeelE(i) OR mi #(i3 THEN 980 
GOTO h 
FRINT SLE(i 33" "neiEli), TAR(AS)SLE (I) 
l= +1: IE 1=18 THEN 1l=0:S0SUB 1750 


; einlesen 


OFENIN "Ergebn." 

INFUT #9, a5 

FOR i=1 TO 18 
T#9,spli),glib,uli),v(i),ti(i),t2ti) 


FOR i=1 TO as 
INPUT #97,SL Fi) 
INFUT #9,525() 


1150 
1170 
1190 REM Ergebnisse aLspeichern 
REM 
OFENOUT "Ergebn." 
FRINT #9 ,as 
FOR ıi=1 TOD 18 
xIn „spti) gti’ ,uti),vii),ti(i),tZ2ti) 


FÖR i=1 TO as 
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> FRINT #9,8 
FRINT #9, st 
<T i:CLOS 


I Tabelle ersteilen 
REM 
FOR i=i TO 18 


(Jj> THEN GOSUE 
THEN 1470 


all-Bundesliga" 


Funkte" 


gti)rutids 
Hi "Shllids 
USING "ash 
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hegtjiegtejdegt t 
h=eulj)sutj)lszultidzutdideh | 
hevcjbe 
h=tldj) 
2(j) st 
eitj>spicn 
(isp2lDepatiı 


vliyevtidet 


tee eine Taste druecken 1" 
1730 VE 
1790 a [HEN 1780 
18300 CL.5:RETUFN 
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Variablenliste: 


a = Antwort "Menüauswahl" 
as = Anzahl der Spielergebnisse 
bm$(i) = Bundesligamannschaften 
es = Anzahl der eingegebenen Ergebnisse 
g(i) = Zahl der gewonnenen Spiele einer Mannschaft 
gt$ = Gastteam 
h = Hilfsvariable im Unterprogramm "Vertauschen" 
h$ = Hilfsvariable im Unterprogramm "Vertauschen" 
ht$ = Heimteam 

Laufindex 


J = Laufindex 


ji = Indexzahl der Heim-Mannschaft 


j2 = Indexzahl der Gast-Mannschaft 


k$(i) = Bundesligamannschaften in Kurzform 
I = Zählindex 
m$ = Mannschaft im Programmteil "Ergebnisse ansehen" 


pl(i) = Pluspunkte einer Mannschaft 


p2(i) = Minuspunkte einer Mannschaft 
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s1$(i) 

= die beteiligten Mannschaften eines Fußballspiels 
s2$(i) 
sp(i) = Anzahl der Spiele einer Mannschaft 


st$(i) = Ergebnis eines Fußballspiels 


tl(i) = geschossene Tore 


t2(i) = "kassierte" Tore 

tg = Tore des Gastteams 
tg$ = tg als Stringvariable 
th = Tore des Heimteams 
th$ = th als Stringvariable 


u(i) = Zahl der unentschieden ausgegangenen Spiele 
einer Mannschaft 


v(i) = Zahl der verlorenen Spiele einer Mannschaft 
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Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70- 90 : Speicherplatzreservierung für 18 Mann- 
schaften und insgesamt 306 Spiele 


Satz 100- 180 : Die Mannschaften der Fußball-Bundesliga 
werden dem Programm mit einer dazuge- 
hörigen Kurzschreibweise als Daten zur 
Verfügung gestellt 


Satz 190- 210 : Einlesen der Daten 
Satz 220- 340 : Menü und Sprunganweisungen 


Satz 350- 680 : Eingabe der Fußballergebnisse 

380- 440 : Ausgabe einer Erläuterung in 
einem definierten Textfenster 

450- 670 : Eingabe der Ergebnisse im 
restlichen Bildschirmbereich. 
In den Sätzen 550-580 werden 
die eingegebenen Mannschafts- 
namen mit den Daten vergli- 
chen, um die Indizes der bei- 
den am Spiel beteiligten 
Mannschaften zu ermitteln. 
Entsprechend dieser Indizes 
werden die für die Tabellen- 
erstellung relevanten Varia- 
blen aktualisiert (Satz 590- 
640) und das Fußballergebnis 
als solches wird in den dafür 
vorgesehenen Feldern abgelegt 
(Satz 650-660). Dabei zeigt 
sich in Satz 660 nochmals 
eine Möglichkeit der String- 
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bearbeitung. 
680 : Rücksprung zur Menüauswahl 


Satz 690-1020 : Ansehen der Ergebnisse 

720- 800 : Menüauswahl und Programmver- 
zweigungen 

810- 850 : Ausgabe aller Ergebnisse 

860-1010 : Ein Mannschaftsname wird an- 
gefordert (Satz 910), die 
Kurzschreibweise wird identi- 
fiziert (Satz 920-940) und es 
werden die Spielergebnisse 
mit Beteiligung der angege- 
benen Mannschaft ausgegeben 
(Satz 950-1000) 

1020 : Rücksprung zur Menüauswahl 


Satz 1030-1160 : Ergebnisse werden eingelesen 


Satz 1170-1300 : Ergebnisse werden abgespeichert 


Satz 1310-1610 : Die Tabelle wird erstellt 

1340-1370 : Die Plus- und Minuspunkte 
werden für jede Mannschaft 
berechnet 

1380-1480 : Jede Mannschaft wird mit je- 
der anderen Mannschaft ver- 
glichen und die Rangfolge 
wird gegebenenfalls im Unter- 
programm (Satz 1650-1740) 
vertauscht (siehe dazu auch 
Kapitel 2.4 dieses Buches). 
Als Vergleichswerte dienen 
die Pluspunkte (Satz 1400- 
1410), die Minuspunkte (Satz 
1420-1430), die Tordifferenz 
(Satz 1440-1450) und die Zahl 
der geschossenen Tore (Satz 
1460). Nur bei Gleichheit 
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eines überprüften Kriteriums 
wird das jeweils folgende 
Kriterium herangezogen. 

1490-1610 : Die formatierte Tabellenaus- 
gabe 


Satz 1620 : Programmende 


Satz 1630-1740 : Unterprogramm "Vertauschen" 


Satz 1750-1800 : Unterprogramm "Warten" 
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.5. Ideenfundgrube 


- Gedichte vom Computer (in den meisten Fällen haben 
nämlich sich reimende Wörter in ihren hinteren Teilen 
gleiche Zeichenfolgen) 

- abrufbare Blumen- oder Gartenpflege 

- Rezeptkartei für Hobbyköche 

- Sammlungen jeglicher Art ordnen und verwalten 

programmierte Lehrgänge (Segeln, Morsen usw.) 
Ergebnisauswertung von großen Sportveranstaltungen 


Ihr Rechner als Trainingsplaner 


Belichtungszeiten im Fotolabor (dazu eignet sich Ihr 
CPC mit seinerEchtzeituhr besonders gut) 


- 2D- und 3D-Graphik 
- Computer als Filmemacher 
- CAD für Strickarbeiten 


- Schnittmusterbögen programmiert 
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- Planung der Streckenführung Ihrer Modelleisen (oder 
-renn) bahn 


- Computersteuerung Ihrer Modelleisenbahn (nur mit zu- 
sätzlichen Hardware-Kenntnissen) 


- und noch vieles mehr 
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und so könnte ein einfaches Programm zur Blumenpflege 
aussehen. 


= {(Bubikopf) 
ich v und 
‚1 und ebwas 


tibegoni 
nicht zu fe 


halbschattig 


DATA Elume, Wasser, Li . bzw. Sandor! 
=1 TO Kk 
bE(i), wEli), 1sF(i) 


den folgenden Elumen bzw. Fflarzer" 
"koennen Sie Ffiegeinformatiunen abrufen" 
ink 
2 "sbEli) 


eine FHummer an 


n©i THEN 


INT bFitn) 
INT:FRINT 1 
ITEPFRINT+F TEPMINTIHrHINT "Fuer weitere 
Informationen bitte das" 


FRINT"Frogramm erneunt starten" 


Dieses Programm ist ähnlich aufgebaut wie das Programm zur 
Kalorienberechnung (Il8). Ohne großen Aufwand läßt es sich 
um weitere Planzenarten erweitern. Zudem ist natürlich 

auch eine andere Aufteilung der Pflegekriterien möglich. 
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Weiterhin sei noch ein kurzes Progrämmchen zum Thema 
"Stricken" vorgestellt. Neben der programmtechnisch etwas 
aufwendigen Möglichkeit, Pullover auf dem Bildschirm zu 
entwerfen und mittels einer Hardcopy-Routine 
Schnittmusterbögen auszudrucken, läßt sich eine 
"Maschenprobe" sehr leicht programmieren, da es sich dabei 
um ein einfaches Dreisatz-Problem handelt: 


l\öcrm Breite "ym 
in cm "yb 


somit "ym#b/10," Maschen." 
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9. Die lieben Kleinen 


9.1. Vorbemerkung 


In diesem Kapitel soll gezeigt werden, wie man als Schüler 
oder Lernender den Schneider CPC einsetzen und benutzen 
kann. Vielleicht haben Sie schulpflichtige Kinder, denen 
Sie mit den Programmen in diesem Kapitel eine Alternative 
zu den in Schülerkreisen weit verbreitete Spielprogrammen 
bieten können. 


Natürlich ist es möglich zu den verschiedensten Problemen 

des Schulalltags hilfreiche Programme zu entwickeln. Hier 
stehen jedoch mathematische Probleme im Vordergrund, da 

das Fach Mathematik immer noch die größte "Nähe" zum Com- 
puter aufweist. Hinzu kommt ein etwas umfangreicheres Vo- 
kabelprogramm, welches nicht zuletzt deshalb sehr inter- 

essant ist, weil es ohne große Schwierigkeiten für belie- 

bige Fragestellungen umgeschrieben werden kann. 
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9.2. Das Einmaleins 


Das Programm in diesem Kapitel eignet sich in besonderer 
Weise für Grundschüler. Es ist ohne Probleme auf eine an- 
dere Grundrechnungsart umzustellen, so daß ein wesent- 
licher Teil der elementaren Mathematik mit diesem Programm 
abgedeckt werden kann. 


Ausgehend von einem einzugebenden Maximalwert werden im 
Programmablauf Zufallszahlen erzeugt, die der Stellung ei- 
ner Multiplikationsaufgabe dienen. Diese Aufgabe sollte 

dann möglichst korrekt gelöst werden. Am Ende der Lernar- 
beit wird dann die Erfolgsquote ausgegeben. Insofern han- 
delt es sich hier - ähnlich wie beim "Vokabeltrainer" - um 
ein Abfrageprogramm. 


Programm: 


20.CL8S 

„OÖ FRINT "T22 = Frogramm zur Einuebung" 

40 FRINT TARB(7T) "des Einmaleins" 

50 FRINT=FRINT+FRINT:FRINTEFRINT:FRINT 

e@0 FRINT TAB(9) "Bernd Kowal, 1985" 

76 GOSUEB 350 

80 FRINT"Durch die Eingabe des Euchstabens '2'" 

906 FRINT"koennen Sie die folgnde VUebung abbrechen" 
100 FRINT:FRINT"Zunaechst geben Sie aber bitte an," 
110 FRINT"wie gr die groesste Zahl der UVebung" 
120 INFUT"sein soll "3gz:CLS 

1320 j=i+l 

145 FRINT"Die"z5i;". te Aufgabe :":FRINT:FRINT:FRINT 
150 £1=ROLNDARND*gz) 3 f2=ROUND (RND*gz ) 
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160 FRINT TAB(1O #25: INPUT" = ",ep# 
170 $= 2 
26 
190 


' PRINT TABCIIP"richtig"er "at1:G0TD 240 
PRINT TAR(11)" falsch" fa=farlsFRINTEFRINT 
i fil;"mal"sf2;" = "sn 


ai 1 
PRINT" Von"sis "Aufgaben sind"sFRINT 
NT fas "falsch und"sFRINT 
;"michtig"=FRINT 
antwortet worden. "= FRINTSFRINTSFRINT 
UND CFa/ır 100,25 
der Antworten sind also falsch" 
INT" und"s ROUND (ra/i #100, 35 
sind richtig gewesen." 
'RINT"Ende der Berechnungen "sEND 
ramm Warten 


in 


»@» eine Taste druecken 


THEN 380 
aao LE TURN 
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Variablenliste: 


ep = eingegebenes Produkt 
ep$ = Eingabefeld für ep 
fl = erster Faktor 

f2 = zweiter Faktor 


Anzahl der falschen Antworten 


größte Zahl der Übung 


i = Anzahl der gestellten Aufgaben 
p = berechnetes Produkt 


ra = Anzahl der richtigen Antworten 
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Programmbeschreibung: 


Satz 10- 70 : Überschrift 


Satz 80-120 : Ausgabe einer Erläuterung zur Programmbe- 
nutzung und Anforderung eines Wertes für 
die größte Zahl der Übung 


Satz 130-160 : Eine Aufgabe wird gestellt und ein Ergebnis 
wird angefordert 


Satz 170-180 : Wenn die Übung abgebrochen werden soll, er- 
folgt ein Sprung zur Erfogsausgabe. Anson- 
sten wird die gemachte Eingabe in einen nu- 
merischen Wert umgewandelt 


Satz 190-240 : Die Eingabe wird auf ihre Richtigkeit hin 
überprüft, ein entsprechender Kommentar 
wird ausgegeben und das Ergebnis der Über- 
prüfung wird registriert. Anschließend er- 
folgt eine Verzweigung zum Satz 130, damit 
eine weitere Aufgabe gestellt werden kann. 


Satz 250-330 : Ausgabe der absoluten und relativen Er- 
folgsquote 


Satz 340 : Programmende 


Satz 350-400 : Unterprogramm "Warten" 
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9.3. Primzahlenprüfung 


Eine ganze Zahl z heißt Primzahl, wenn sie ohne Rest nur 
durch 1 und sich selbst teilbar ist. Nur die Zahl I stellt 
eine Ausnahme dar. Obwohl I nur durch | teilbar ist, zählt 
die I nicht zu den Primzahlen. 

Sieht man von der Zahl 2 ab, die man üblicherweise nicht 
zu den Primzahlen zählt, so läßt sich weiterhin feststel- 

In, daß eine gerade Zahl keine Primzahl sin kann, da sie 
auf jeden Fall durch 2 teilbar ist. 

Die Überprüfung ungerader Zahlen nimmt hingegen etwas Zeit 
in Anspruch. Sie müssen nämlich durch alle Teiler geteilt 
werden, die größer als 1, aber kleiner als sie selbst 

sind. Sofern bei diesen Divisionen ein ganzzahliges Ergeb- 
nis auftritt (Division ohne Rest), ist die überprüfte Zahl 
offenbar keine Primzahl. Erst wenn bei allen Divisionen 
ein Rest auftritt, liegt eine Primzahl vor. 


Es ist offenkundig, daß insbesondere die Überprüfung grö- 
ßerer Zahlen ohne Computereinsatz recht aufwendig ist. Zu- 
dem ist das entsprechende Programm nicht sehr schwierig. 
Der Programmablauf ergibt sich eigentlich direkt aus den 
obigen Ausführungen. 
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Programm: 


"rimzahlu "GC 
ıe Frimzahl, da’yzy "dureh" 
" 


nde cam Ber echnmungen"s END 
"ag amım Alarm ten 


eine Taste druecken | 
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Variablenliste: 


i = Teiler 


z = zu prüfende Zahl 


Programmbeschreibung: 


Satz 10- 70 : Überschrift 
Satz 80- 90 : Eingabe einer Zahl 
Satz 100 : Druck dreier Leerzeilen 


Satz 110-130 : Ist die Zahl I eingegeben worden, wird ein 
Kommentar ausgegeben und zum Programmende 
verzweigt 


Satz 140-160 : In dieser Programmschleife wird der Teiler 
i jeweils um 1 erhöht, bis maximal der Wert 
z/2 erreicht ist. Ist eine Division ohne 
Rest gelungen, wird zur entsprechenden Er- 
gebnisausgabe verzweigt. Die Schleife läuft 
nur bis z/2, da mit größeren Teilern auch 
kein ganzzahliges Ergebnis mehr erzielt 
werden kann. 
Für z=2 und z=3 wird diese Schleife nicht 
durchlaufen, da z/2<2. Es wird jedoch der 
richtige Teil der Ergebnisausgabe in Satz 
170 erreicht. 
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Satz 170-190 : Ergebnisausgabe 


Satz 200 : Programmende 


Satz 210-260 : Unterprogramm "Warten" 
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9.4. Die Ermittlung einer Nullstelle 


Die Berechnung einer Nullstelle für beliebige Funktionen 
ist ein wichtiger Bestandteil der Mathematik. Viele mathe- 
matische Probleme stehen mit ihr im Zusammenhang. 
Das Verfahren, das dem vorliegenden Programm zugrunde 
liegt, ist das der Intervallschachtelung. Innerhalb eines 
Intervalls mit den Intervallgrenzen a und b liegt mit Si- 
cherheit eine Nullstelle, wenn die Vorzeichen der Funk- 
tionswerte f(a) und f(b) verschieden sind. Ist nun das 
Vorzeichen von f( %*) gleich dem Vorzeichen von f(a), dann 
liegt die Nullstelle im rechten Teilintervall. In diesem 
Fall wird a gleich -$% gesetzt und das Verfahren wird wie- 
derholt. Analog zu dieser Vorgehensweise wird b gleich | 
2 gsetzt, wenn die Nullstelle im linken Teilintervall 
liegt, das Vorzeichen von f( $®) also gleich dem Vorzei- 
chen von f(b) ist. 
Dieses Verfahren ließe sich quasi endlos wiederholen. Da- 
her ist als Abbruchkriterium ein Wert vorzugeben, welcher 
die Anzahl der Intervallschachtelungen begrenzt. Im Pro- 
gramm ist das der Wert 500 (Satz 270). Zwar reichten bei 
kleinen Intervallen auch weniger Schachtelungen aus um ein 
genaues Ergebnis zu erzielen, jedoch kann dieser Wert bei 
sehr großen Intervallen schon zu klein sein. 
Das vorliegende Programm ist an die Voraussetzung unglei- 
cher Vorzeichen für die Funktionswerte der Intervallgren- 
zen gebunden, obwohl natürlich auch dann Nullstellen im 
Intervall vorhanden sein können, wenn diese Voraussetzung 
nicht erfüllt ist. Es ist dann lediglich ein zu großes In- 
tervall gewählt worden. Weiterhin bleibt der Sonderfall 
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mehrerer Nullstellen unberücksichtigt. Daher ist es rat- 

sam, mit relativ kleinen Intervallen zu arbeiten. 

Das Programm können Sie auf beliebige Funktionen anwenden. 
Es ist dann jeweils nur die Programmzeile 340 entsprechend 
zu ändern. Achten Sie aber auf die Stetigkeit der eingege- 
benen Funktion, da ansonsten Fehlermeldungen auftreten. 

Im vorliegenden Programm ist die einfache Funktion 


3 
vorgegeben. Diese Funktion hat eine Nullstelle bei 


x = 1.7099 ... 


Programm: 
LO FEN 
zur Mallstellen-" 


\ INT 
ne Kowial ; " 


ige Funktion" 


ammzeile, koenren 
Fuer eine andere Funktion 


ches Intervall soll unter sucht" 
«FRINTI 
in Fand 
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THEN FRINT"Nullstelle bei x ="; SOTO : 
T FRINT"Nullstelle bei x ; >OTO 
IF SGNCfe -SGNifb} THEN 270 
FRINT"Die V fE tLzung, Worzeichen Flayın" 
FRINT"Vo sichen fFib) ist nicht erfuellt." 
GOTO 
) 
UB 40 
tfa) THEN a=sxıfa= 


\ RINT"Nullstelle bei 
FRINT"t GO yy 
FRINT INT:FRINT'Ende der Berechnungen" 


‚ eine Tasbe drus 


" THEN 
URN 
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Variablenliste: 


Intervallanfang 
Intervallende 
Funktionswert des Intervallanfangs 
Funktionswert des Intervallendes 
i = Laufindex 
x = x-Wert der Funktion 


y = y-Wert der Funktion 


Programmbeschreibung: 


Satz 10- 70 : Überschrift 


Satz 80-120 : Ausgabe einer Erläuterung und "Warten" 


Satz 130-160 : Eingabe der Intervallgrenzen 


Satz 170-200 : Die Funktionswerte der Intervallgrenzen 
werden durch Sprünge ins Unterprogramm 
(Satz 340) berechnet und ausgegeben 


Satz 210-220 : Ausgabe eines Kommentars und Verzweigung 
zum Programmende, wenn der Funktionswert 
einer Intervallgrenze gleich 0 ist 
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Satz 230-260 : Ist die Voraussetzung ungleicher Vorzeichen 
nicht erfüllt, wird ein Kommentar ausgege- 
ben und zum Programmende verzweigt 


Satz 270 : Eröffnung einer Programmschleife für 500 
Intervallschachtelungen 


Satz 280 : Das Intervall wird halbiert und der ent- 
sprechende Funktionswert wird berechnet 


Satz 290 : Wenn das Vorzeichen des Funktionswertes der 
Intervallmitte SGN(y) gleich dem Vorzeichen 
des Funktionswertes der linken Intervall- 
grenze SGN(fa) ist, dann wird die Inter- 
vallmitte zur linken Intervallbegrenzung 
für das darauffolgende halbierte Intervall 
und der Funktionswert der Intervallmitte 
wird zum Funktionswert der linken Inter- 
vallgrenze des folgenden Intervalls. 

Ist SGN(y)<>SGN(fa), wird die Intervall- 
mitte bzw. der Funktionswert der Inter- 
mitte zur rechten Intervallgrenze bzw. zum 
Funktionswert der rechten Intervallgrenze 
des darauffolgenden Intervalls. 


Satz 300 : Ende der Programmschleife 


Satz 310-320 : Ergebnisausgabe 


Satz 330 : Programmende 


Satz 340-350 : Unterprogramm für die Funktionsvorgabe 


Satz 360-410 : Unterprogramm "Warten" 
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9.5. Der Vokabeltrainer 


Auch beim Erlernen von Fremdsprachen kann Ihnen Ihr CPC 
wirkungsvolle Hilfe leisten. So wäre es zum Beispiel mög- 
lich, ein komplettes Sprachunterrichtsprogramm zu entwik- 
keln. Dies würde jedoch den Rahmen dieses Buches überstei- 
gen. Mit guten bis sehr guten BASIC-Kennnissen könnten 
Sie es ja einmal selbst versuchen. Natürlich müssen Sie 

dann schon entsprechende Sprachkenntnisse - und vor allen 
Dingen Interesse an dieser Thematik haben. 


In diesem Kapitel geht es um das "Pauken" von Vokabeln. 
Wahrscheinlich haben Sie auch Vokabeln mit zugehaltener 
Spalte im Vokabelheft gelernt. Diese Möglichkeit Vokabeln 
zu lernen hat den Nachteil, daß die Reihenfolge der Voka- 
beln immer die gleiche ist. Wird dann im Vokabeltest eine 
andere Reihenfolge gewählt - und dies ist mit Sicherheit 
der Fall -, werden Sie Schwierigkeiten haben, die "hei- 
mischen" Erfolge zu wiederholen. Sie brauchen also jeman- 
den, der Zeit für Sie hat und mit Ihnen übt. Dieser jemand 
kann ab heute Ihr CPC sein. Er hat immer Zeit für Sie. Das 
Programm, das Sie dazu benötigen, finden Sie auf den näch- 
sten Seiten. Es ist so komfortabel gestaltet, daß es die 
gesamte Organisation des Vokabellernens übernehmen kann. 
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Folgende Funktionen hat das Programm: 
Vokabeln 

eingeben 

einlesen 


verbessern (mit der Möglichkeit des Ansehens aller 
im Arbeitsspeicher befindlichen Vokabeln, sowie des 
Löschens einzelner Vokabeln) 


ergänzen (über die Tastatur oder durch zusätzliches 
Einlesen) 


lernen (deutsches Wort - Fremdwort oder Fremdwort - 
deutsches Wort) 


abspeichern 


Befinden sich beispielsweise 50 Vokabeln im Arbeitsspei- 
cher des Rechners, dann geht das Lernen so vor sich, daß 
zunächst 50 Vokabeln zufällig ausgewählt werden. Dabei 
finden schon richtig beantwortete Vokaben keine Berück- 
sichtigung. Falsch beantwortete Vokabeln können hingegen 
mehrmals auftreten. Anschließend kommen dann die Vokabeln 
an die Reihe, die noch nicht vom Computer ausgewählt wor- 
den sind. Zum Schluß werden dann die falsch beantworteten 
Vokabeln solange abgefragt, bis jede Vokabel mindestens 
einmal richtig beantwortet ist. 

Natürlich ist es auch möglich, die Lernarbeit vorzeitig zu 
beenden. Auf jeden Fall wird nach Abschluß der Lernarbeit 
eine "Erfolgsquote" ausgegeben. 


Für die Lernarbeit ist es sinnvoll, einzelne Lektionen ge- 
trennt abzuspeichern. Nach Belieben können Sie diese dann 
mit der Ergänzungsfunktion zusammenfassen. Insgesamt ist 
im Programm Platz für 1000 Vokabeln reserviert worden. 
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Für den Diskettenbetrieb ist eine unwesentliche Programm- 
änderung notwendig: 


565 INPUT "Wie heisst die Lektion ";n$ 
570 OPENIN n$ 


Die Vokabeleingabe vollzieht sich so, daß zuerst das 
deutsche Wort, dann ein Komma und dann das Fremdwort ein- 
getippt werden, also zum Beispiel 


? er,he (ENTER) 


Zu beachten ist, daß Ergänzungen nur mit der Ergänzungs- 
funktion möglich sind. Ein wiederholtes Eingeben oder Ein- 
lesen hat zur Folge, daß Vokabeln, die sich im Programm- 
speicher befinden, überschrieben werden. 

Ansonsten ist das Programm weitgehendst selbsterklärend. 


Das beste ist, Sie probieren es gleich einmal aus! 


Programm: 
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150 FRINT" N 

1580 FRINT" i 

170 FRINT" 

E "RIN’ ergae 

FRINT" lernen"; BT: 
FRINT" abspeichern"; TAR (: 'S'"SFRINT 
FRINT"Arbeit been s TAB(3S)"7"SFRINTSFRINT:SFRINT 
INFUT"Ihre Wahl " 
IF al OR 7 THE :GOTO 120 
ON a G0TO 370,540,6870,260,1390,18930,19790 


Vokabeln ergaenzen 


zusaetzliche Vokabeln einge" 
werden (j/rn) 


14126010" 


INT"Dann koennen Sie jetzt zı tzliche" 
'RINT'"Vokabeln eingeben. ":G 
kKirlsbheki+#1ö 
M 
M Vokabeln eingehen 
M . 
FRINT"Das deutsche = und das Fremdwort sind" 
INT"durch Komme voneinander zu brennen." 
Y"G 5 * ein, wenn alle Vokabeln 
ippt sind." MT 
war "SPRINT 


INFUT Fit; F2 ) 
IF dF(i) "x" THEN 5 
»FRINT" ef 1 ich Jetzt"skl 
im Arbeı b ; 


THEN kish+lshsh+15:60SUB 65070 390 


Vokabeln einlesen 


INF #9,FF(L) 
IF EOF=-1 THEN 
NEXT i 


NT'Es befinden 
skalı i 


I Vokabeln werke 


ie das falsche Kort benenmeny" 
Sie sich lieber alle" 
ansehen T'"rFRINT 
FRINT 
"LSFRINT 


aslclS 


Sie bitte das falsche Wort" 

i RE 
T"Lnd wie heisst es richtig 
i=1 TO kl 


D 


rw 


THEN EHE (Gi derw#: GOTO B7C 
: THEN FE (iderw#:5OTO 870 


RINT"Das angegebene klort ist nicht zu finden" 


XINT'"Die Verbesseru ‚st erfolgt." 
e rung (Jin) "ya 


IEN C 
j" THEN 8 
690 


120 


IF ib>ki THEN 1ORO 
FRINT #i,ig". "dsddg"-" 
INT #1, TARCOI FECI) 
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1450 
1470 


FRINT"Woa befindet sich" 
FRINT"der Fehler ”?" 
FRINT"Geben Sie eine ü" 
FRINT"ein, wenn alles" 
FRINT"richtig ist." 
FRINT"Die Eingabe eines" 
"RINT"Leerzeichens fuer" 
FRINT"das deutsche Wort" 
FRINT"bewirkt die Loe-" 
FRINT"schung der ent-" 
'RINT"sprechenden" 
FRINT"Nummer .„ ":FRINT 
INFUT"Nummer "3b 
IF b=Ö0 THEN 1370 
FRFINT:FRINT"Ist das deutsche" 
FRINT"Wort falsch" 
INFUT" (3/m) "zaH# 
IF ad n" THEN 1700 
IF a "3" THEN 1 ’ 
FRINT"Wie heisst es rich-" 
INFUT"tig "ıdEih)} 
FRINT:FRINT"Ist das Fremdwort" 
INFUT"falsch (j/n) "sa 
IF a 'n" THEN 1360 
IF afı:>"j" THEN > 
FRINT'"Wie heisst es rich-" 
INFUT"Lig "stEFih) 

#1: 5070 1040 

3ek+10: 50TO 940 


Mi 
l=Ösrr=usff=l 
FOR i=1 TO Kleglijeürw(ii)=Ü:NEXT i 
FRINT ki;"Vokabeln gehen in die Lebung ein." 
INT:FRINT"Geben Sie ein ® fuer die abgefragte" 
INT"Vokabel ein, wenn Sie die Lernarbeit" 
FRINT"beenden wollen. ":FRINT 
"EINT"Wie eollen die Vokabeln abgefragt" 
'RINT'"werden 7" 
FRINT:FRINT TAB) "Eingabe" :FRIN]I 
FINT"Deutsches Wort — Fremdwort"; TABtT&E) "1" 
INT 
FRINT"Fremdwort — Deutsches Wort"; TAR(I6) "2" 
FRINT: INFPUT"Ihre Wahl ce 
23 ® THEN 1470 ELSE CLS 
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(yıel 
THEN 1550 


q ti)=1 THEN 1830 
SUE Z110sls 


ENTE 2 1 t alle Vokabeln mindes 
' mal Lig beantwortet worden. ] 
:INT"Bei der Abfrage an insgesamt "y 15 
beln, waren"zrmm f 
3 une" fi 
zenten auSee scirL 
sh ri 


ER LOO/LE 
Antworten waren Falsch" 
r THEN 1840 
‚och etwas ueben." 


a Leistung." 


‚ein abspeichern 


soll die abzuspeichernde" 
; heisse 


Sie auch 
nad 
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FRINT"ein 'oh’ eın (ansonsten reicht die" 
FRINT"Leertaste)." 
INFUT af 
E "ah" THEN CS: 50T0 1900 
IN’ "INT" auf kliedersehen'" 
FELNTS FRINT"Sie koennen mich jetzt ausschalten" 


rr=re+lo: u 
FRINT: IF en THEN ei: 5: GOTO 
INT TAB(93 "Tal “ j 
NTEFRINT Bi7) "ri chtig 
THEN F ST 


RE m 
REM UF Warten 
REM 


INT "Bi te eine Taste druecken | 
$ 
THEN ZI 
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Variablenliste: 


a = Antwort "Menüauswahl" 
a$ = Antwortstring (j/n) 


b = Hilfsvariable und Index (Programmteil "Ver- 
besserungen") 


c = Antwort "Menüauswahl" im Programmteil "Lernen" 
d$(i) = deutsches Wort 


e= Schleifenanfangswert (größer als I, wenn Ergän- 
zungen vorgenommen werden) 


f$(i) = Fremdwort 
ff = Anzahl der falschen Antworten 
fw$ = falsches Wort (Programmteil "Verbesserungen") 


h = Hilfsvariable, welche anzeigt, ob der Bildschirm 
voll ist 


hi = Hilfsvariable (gleich 1, wenn noch richtige Ant- 
worten fehlen) 


Laufindex 
J = Laufindex 
kl = Anzahl der Vokabeln im Arbeitsspeicher 
k2 = Schleifenanfang 
k3 = Schleifenende 


1 = Anzahl der gesamten Antworten 
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n$ = Name der abzuspeichernden Lektion 
p$ = Eingabe im Unterprogramm "Abfragen" 


a(i) = Hilfsvariable (gleich 0, wenn eine Vokabel noch 
nicht abgefragt worden ist, ansonsten gleich 1) 


r = Anzahl der richtigen Antworten 

rw$ = richtiges Wort (Programmteil "Verbesserungen") 

w(i) = Hilfsvariable (gleich 0, wenn eine Vokabel noch 
nicht richtig beantwortet worden ist, ansonsten 


gleich 1) 


y = Index der aktuell abgefragten Vokabel 


Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70 : Speicherplatzreservierung 


Satz 80 : Variablen werden mit Ausgangswerten be- 
legt 


Satz 90- 240 : Menüauswahl und Programmverzweigungen 


Satz 250- 350 : Programmteil "Vokabeln ergänzen" 
Es besteht die Möglichkeit entweder zu- 
sätzliche Vokabeln einzulesen (Programm- 
verzweigung und Belegung der Variablen e) 
oder einzugeben (Veränderung der Varia- 
blen kl und h). 
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Satz 360- 520 : Programmteil "Vokabeln eingeben" 
Bis zu 1000 Vokabeln können eingegeben 
werden. Nach der Eingabe von jeweils 15 
Vokabeln erfolgt ein Sprung ins Unterpro- 
gramm "Warten". 


Satz 530- 650 : Programmteil "Vokabeln einlesen" 
Werden Vokabeln ergänzend eingelesen, 
dann ist e gleich kl+1. 


Satz 660-1370 : Programmteil "Vokabeln verbessern" 
690- 770 : Menüauswahl 
780- 910 : Verbesserung durch Eingabe 
des falsch - und des richtig 
geschriebenen Wortes. Der 
Vergleich der Eingabe "fal- 
sches Wort" mit allen intern 
gespeicherten Vokabeln er- 
folgt in der Programmschleife 
Satz 810-840. 
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920-1370 : Ansehen und verbessern oder 
löschen der Vokabeln 
Die Ausgabe der Vokabeln 
(Satz 1040-1080) erfolgt in 
einem gesondert definierten 
Textfenster (siehe Satz 920). 
Um ein "Wegrollen" des Aus- 
gabefensters zu vermeiden, 
werden nur immer 10 Vokabeln 
angezeigt (siehe Schleifenan- 
fangs- und endwert Satz 1040 
(Erstbelegung Satz 930) und 
deren Neubelegung in Satz 
1370). 
Die Sätze 1090-1360 dienen 
der Benutzeranleitung und der 
Verbesserung von Vokabeln. 
Erst wenn die ausgegebenen 
Vokabeln in Ordnung sind 
(Eingabe 0), werden weitere 
Vokabeln zum Ansehen ausgege- 
ben (siehe Satz 1370). Anson- 
sten wiederholt sich die 
gleiche Ausgabe (natürlich 
mit evtl. Verbesserungen, 
siehe Satz 1360). 
In den Sätzen 950-1020, die 
erst nach der Ausgabe aller 
Vokabeln erreicht werden 
(siehe Satz 940), wird über- 
prüft, ob Vokabeln gelöscht 
werden sollen (dann ist 
d$(i)=" "). Ist das der Fall, 
so verändern sich die Indizes 
der folgenden Vokabeln ent- 
sprechend (siehe Programm- 
schleife Satz 980-1010). 
In Satz 1030 wird dieser Pro- 
grammteil durch Rücksprung 
zur Menüauswahl beendet. 
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Satz 1380-1860 : Programmteil "Vokabeln lernen" 

1410-1420 : Variablen werden mit Aus- 
gangswerten belegt 

1430-1540 : Erläuterungen und Menüauswahl 

1550-1590 : kl-mal dient die in Satz 1550 
erzeugte Zufallszahl (zwi- 
schen I und kl) der Indexbe- 
stimmung für die Vokabelab- 
frage (Unterprogramm Satz 
2100-2260). Falls eine ent- 
sprechende Abfrage schon 
durchgeführt worden ist, wird 
die nächste Zufallszahl ge- 
nommen (siehe Satz 1560). 

1600-1630 : Es werden die Indizes der Vo- 
kabeln bestimmt, die noch 
nicht abgefragt wurden 

1640-1700 : Solange noch Vokabelabfragen 
falsch beantwortet werden 
(siehe Hilfsgröße hi), dienen 
die entsprechenden Indizes 
als Ausgangsgrößen für das 
Unterprogramm "Abfragen" 

1710-1860 : Die Ergebnisse der Lernarbeit 
werden ausgegeben 


Satz 1870-1960 : Programmteil "Vokabeln abspeichern" 
Alle im Arbeitsspeicher vorhandenen Vo- 
kabeln werden abgespeichert (wie in den 
vorangegangenen Programmen, so ist auch 
hier prinzipiel der Einsatz eines Dis- 
kettenlaufwerks möglich) 


Satz 1970-2090 : Programmteil "Programm beenden" 
Es besteht hier noch die Möglichkeit Vo- 
kabeln abzuspeichern, da dies - nach er- 
folgter Lernarbeit - häufig vergessen 
wird 
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Satz 2100-2260 : Unterprogramm "Abfragen" 
Nachdem im Programmteil "Vokabeln lernen" 
der Index y bestimmt worden ist, wird 
hier eine entsprechende Eingabe angefor- 
dert. Richtige und falsche Antworten wer- 
den registriert. 


Satz 2270-2340 : Unterprogramm "Warten" 
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.6. Ideenfundgrube 


mathematische Probleme jeglicher Art 
Reaktionsgleichungen und stöchiometrisches Rechnen 
physikalische Gesetze 

optische Abbildungen 

Wörterbücher programmiert 

Rechtschreibtraining 


Literaturdatenbank 


Gedichte analysieren (siehe dazu ach Kapitel 8.5) 


historische Ereignisse speichern und abrufen 
Darstellung von biologischen Wachstumsprozessen 
Musik nach Noten 


und noch vieles mehr 
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10. Spielen mit dem CPC 


10.1. Vorbemerkung 


Es gibt Leute, die ausschließlich mit ihrem Computer spie- 
len. Für diesen Personenkreis ist das vorliegende Buch 
ideal, da doch einige "sinnvolle" Anwendungen dargestellt 
werden (obgleich natürlich jeder seine eigene Philosophie 
bezüglich des Wörtchens "sinnvoll" haben wird). Nichts- 
destoweniger kann das eine oder andere Spielchen recht 
interessant sein, zumal wenn man das zugehörige Programm 
selbst geschrieben hat und somit zusätzliche Variationen 
ohne Probleme in den Spielablauf einfügen kann. Schade ist 
es nur, wenn der Computer zum Spielobjekt degradiert wird 
und seine sonstigen Fähigkeiten ungenutzt bleiben. Aber 
letztlich muß das selbstverständlich jeder für sich 

alleine entscheiden. 


In diesem Kapitel werden zwei vergleichsweise einfache 
Spielprogramme vorgestellt, die jedoch zwei wesentliche 
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Grundelemente der Spieleprogrammierung beinhalten, nämlich 
die Darstellung von Bewegungsabläufen und die Simulation 
von "Denkschritten". Allerdings bietet der CPC noch viel 
mehr Möglichkeiten zur Programmierung von Computerspielen. 
Vielleicht schauen Sie sich dazu einmal den gesamten Zei- 
chensatz Ihres CPC mit der Funktion CHR$(i), für i=32 bis 
i=255, an. Grundsätzlich ist es aber das gleiche, ob nun 

ein kleines Männchen oder ein Punkt bzw. Ball über den 
Bildschirm "läuft". Sie bleiben also auch im letzten Kapi- 

tel aufgefordert, die vorhandenen Programme zu verändern 
und zu erweitern oder ganz einfach Anregungen zu über- 
nehmen. Und wenn alle Stricke reißen ... der Software- 
Markt ist groß. 


10.2. Bildschirmtennis in Abwandlung 


Vor ca. 10 Jahren waren die Telespiele sehr groß in Mode. 
Man konnte und kann mit ihnen unter anderem "Tennis" spie- 
len. Mit recht einfachen Mitteln läßt sich ein derartiges 
Spiel programmieren. 

Grundsätzlich werden im Programmablauf Koordinaten eines 
Punktes berechnet, der Punkt wird gezeichnet und der 
vorangegangene Punkt wird gelöscht. So entsteht der Ein- 
druck der Bewegung. Erreicht der Punkt die rechte Bild- 
schirmbegrenzung, wird er zurückgespielt, wenn die vom 
Spieler zu bewegende Linie bzw. der "Schläger" mit dem 
Punkt bzw. "Ball" zusammentrifft. Ansonsten wird ein 
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neuer "Ball" ins Spiel gebracht. 

Der "Schläger" wird mit den Cursorsteuertasten bewegt. 
Treffer und Nicht-Treffer werden aufsummiert und ange- 
zeigt. Die Geschwindigkeit des "Balles" und des "Schlä- 
gers", sowie die Länge des "Schlägers" kann der Benutzer 
frei wählen, d. h. er kann die Schwierigkeitsstufe selbst 
bestimmen. Weiterhin kann er festlegen, ob die Ballge- 
schwindigkeit variieren soll. 

Mit Hilfe kleiner Programmänderungen lassen sich für die 
Steuerung des "Schlägers" auch Joysticks einsetzen. Soll- 

ten Sie zwei Joysticks zur Verfügung haben, so könnten Sie 
auch einen zweiten "Schläger" ins Spiel bringen. Dann müß- 
ten Sie aber auch die Spielregeln bzw. die Trefferanzeige 
ändern. Sie sehen, es gibt viele Möglichkeiten ein derar- 
tiges Programm zu ändern, um keine Langeweile aufkommen zu 
lassen. Viel Spaß! 


Programm: 


1m Abmeandlungs" 
FRINTSFRINT 
i 1% 


eingabe :"sFRINT:FRINT 


eilig“ 


" 


Bi) Fiat 0 ü 
3" THEN zehg. Hg#Z/ BOT 1FU 


:INT"Laenge des "Schlasgers'" 
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INFUT" (Wert zwischen 10 und 1003 

IF sl£10 OR sl:100 THEN 180 
FRINT:FRINT"Geschwindigkeit des Schlaegers 
INFUT" (Wert zwischen 5 und 50) "sg 
IF sg{5 OR sg:50 THEN Z10 


FRINT:FRINT:FRINT"Das Sotiel wird durch zweimaliges" 


FRINT"Druecken de. ESC-Taste beendet." 
GOSUB 570 
Yv DEF Ö,1,111 
DEF 2,1,117 
EN 4.4.4 


O,1:DRAW 0,0,1:DRAW 0,399,1:DRAW 620,399, 


‚INT2O0+s17/23 
20,a,1:DRAW &20,b,1 
GOSURB 516 


nyenytyv 
77 THEN ny=397 2: yva-yv 
THEN ny 
2 THEN n> 
ON DEE GUSLIB 


'o" THEN FLOT 820,a,0:a=atrsgı DRAN SEO, a,0: 
DRAW SIO,b,i 
Be T HE N Fi u auge 620 ,b,Örb=b-sg:DRAW 62U,D, 


yayı 


THEN 480 


GO: IE Sic Jam ve 
d=d+1:608 
FL.OT a: 
FLOT Mm: 
GOTO 
LOCAT 
Kub ATE 
bg} 
YYv=ROUNDCRND 10) 
IF yyviö AND yvi-ö THEN 540 
RETURN 
REM Unterprogramm Warten 
LOCATE 5,35 
FRINT"Bitte eine Taste druecken |! 
F=INEEYE 
£="" THEN Auc 


10,4: END 
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Variablenliste: 


a = untere y-Koordinatenbegrenzung für den Schläger 
a$ = Antwortstring (j/n) 

ax = "alte" x-Koordinate des Balles 

ay = "alte" y-Koordinate des Balles 

b = obere y-Koordinatenbegrenzung für den Schläger 
bg = Ballgeschwindigkeit 

d = Anzahl der Nicht-Treffer (d wie daneben) 

n = "neue" x-Koordinate des Balles 

ny = "neue" y-Koordinate des Balles 

s$ = Wert der gedrückten Taste zur Schlägersteuerung 
sg = Schlägergeschwindigkeit 


sl = Schlägerlänge 


t = Anzahl der Treffer 


xv = Bewegungsgeschwindigkeit des Balles in x-Richtung 
y = Bewegungsgeschwindigkeit des Balles in y-Richtung 


z = Hilfsvariable (gleich bg/2, wenn die Ballgeschwin- 
digkeit variieren soll, ansonsten gleich 0) 
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Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70-250 : Eingabe der Parameter und Ausgabe einer Er- 


läuterung zur Programmbenutzung. Die Grö- 
Benbegrenzungen für die angeforderten Werte 
sind dabei ausschließlich nach dem Kri- 
terium eines "sinnvollen" Spielverlaufs 
ausgewählt worden. Die Berechnungen in 
Satz 150 dienen der Bestimmung der zufällig 
variierenden Bewegungsgeschwindigkeit in 
Satz 530. 


Satz 260-270 : Den Cursorsteuertasten werden Werte zuge- 


Satz 280: 


Satz 290: 


Satz 300: 


Satz 310: 
Satz 320: 


Satz 330: 


ordnet. Beim Drücken dert-Taste wird dann 
ein "o" (o wie oben) und beim Drücken der 
+-Taste ein "u" (u wie unten) zurückgege- 
ben. 


Es werden neue Werte bezüglich der Wieder- 
holungsgeschwindigkeit einer dauernd ge- 
drückten Taste gesetzt, um die Beweglich- 
keit des Schlägers zu vergrößern 


Die Spielfeldumrandung wird gezeichnet 


Die Begrenzungskoordinaten (y-Richtung) für 
den Schläger werden berechnet 


Der Schläger wird gezeichnet 


Sprung ins Unterprogramm (Satz 510) zur Be- 
stimmung der Bewegungsgeschwindigkeit des 
Balles 


Die Ausgangskoordinaten des Balles werden 
festgelegt und der Ball wird direkt ge- 
zeichnet (Sprung zum Satz 490) 
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Satz 340-350 : Die neue Ballposition wird bestimmt (alte 
Position + Bewegungsgeschwindigkeit), nach- 
dem die alte Position in den Feldern ax und 
ay abgelegt wurde 


Satz 360-380 : Wird bei der Positionsveränderung der 
obere -, untere - oder linke Rand des 
Spielfeldes erreicht oder überschritten, 
so wird als Maximalkoordinate ein Wert 
direkt neben dem Rand angenommen und die 
Bewegungsrichtung wird umgedreht (yv=-yv 
bzw. xv=-xv) 


Satz 390 : Nach zweimaligem Drücken der ESC-Taste wird 
ins Unterprogramm (Satz 630) zur Beendigung 
des Spiels und des Programms verzweigt 


Satz 400-420 : Der Wert er gedrückten Tast wird zurück- 
gegeben. Die Betätigung derf-Taste führt 
dazu, daß in Anhängigkeit von der angege- 


benen Schlägergeschwindigkeit sg eine 
"farblose" Linie von der unteren Schläger- 
position zur neuen unteren Schlägerposition 
(a=a+sg) - und von dieser Position aus eine 
Linie zur neuen oberen Schlägerposition 
(b=b+sg) gezeichnet wird. Bei der Betäti- 
gung der}-Taste wird entsprechend ver- 
fahren. 


Satz 430 : Bewegt sich der Punkt von rechts nach links 
(der Ball wird also zurückgeschlagen), 
kann der Punkt direkt gezeichnet werden 
(Sprung zum Satz 480) 


Satz 440-470 : Es wird untersucht, ob der Ball mit dem 
Schläger getroffen wird. Diese Frage stellt 
sich nicht, wenn die rechte Bildschirmbe- 
grenzung noch nicht erreicht ist (Satz 
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440). Ist sie erreicht, werden in Satz 450 

die Koordinaten nx und ny so bestimmt, daß 
sie auf der Schlägerlinie mit der x-Koordi- 
nate 620 liegen (siehe dazu die Skizze im 
Anschluß an diese Beschreibung). Liegt dann 
die Koordinate ny innerhalb des Intervalls 
mit den Grenzen a und b, ist ein Treffer 
erzielt worden ("Piepston", t=t+1). Es wer- 
den dann im Unterprogramm (Satz 510) neue 
Bewegungsgeschwindigkeiten bestimmt und der 
Ball wird zurückgespielt (xv=-xv). Liegt ny 
nicht innerhalb des Intervalls (daneben), 
wird mit neuen Bewegungsgeschwindigkeiten 
ein neuer Ball ins Spiel gebracht (ab Satz 
330), nachdem an der alten Position ein 
farbloser Punkt gezeichnet worden ist. 


Satz 480 : Der "alte" Punkt wird gelöscht 
Satz 490 : Der "neue" Punkt wird eingezeichnet 


Satz 500 : Rücksprung zum Satz 340, um das Spiel fort- 
zusetzen 


Satz 510-560 : Unterprogramm zur Ausgabe der Erfolgsquote 
und zur Bestimmung der Bewegungsgeschwin- 
digkeiten des Balles. In Satz 530 können 
die Werte für xv um 25% über oder unter der 
angegebenen Ballgeschwindigkeit liegen, 
falls dies gewünscht wurde (Satz 110-150). 
Für yv werden die Werte zufällig bestimmt. 
Sie liegen entweder zwischen -10 und -5 
oder zwischen 5 und 10. 


Satz 570-620 : Unterprogramm "Warten" 


Satz 630 : Die Wiederholungsgeschwindigkeit einer 
dauernd gedrückten Taste wird "normali- 
siert" und das Programmende ist erreicht 


di = 


Skizze zur Bestimmung der Koordinate ny in Satz 450: 


gesucht: yk 


tan =I% und 
xV 


somit: 
yk 
620-ax 


V 
- (620-ax) 


für ny ergibt sich: 


ny=say+yk=ay+yv/xv*(20-ax) 
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10.3. Vier gewinnt 


Was machen Sie, wenn Sie ein Spiel für zwei Personen spie- 
len wollen? Die Antwort ist leicht: Sie suchen sich einen 
Spielpartner. Aber was machen Sie, wenn keiner mit Ihnen 
spielen will? Nur für den Besitzer eines Computers ist 

diese Frage leicht zu beantworten: Sie laden das entspre- 
chende Programm und ersetzen den Spielpartner durch Ihren 
Computer. ß 

Wie bringt man denn nun einen Rechner dazu, daß er, wie es 
sich für einen ordentlichen Spielpartner gehört, "nach- 
denkt"? Zuerst müssen Sie ihn mit dem Spielfeld und den 
Spielregeln vertraut machen. Bei "Vier gewinnt" besteht 

das Spielfeld aus einem Raster von 8x6 Feldern. Ziel des 
Spiels ist es, vier Chips in eine Reihe zu bekommen (egal 
ob horizontal, vertikal oder diagonal). Ihre Chips unter- 
scheiden sich dabei natürlich von den Chips Ihres Spiel- 
partners. 

Für eine mittlere Spielstärke ist es dann ausreichend, 

Ihren Computer folgende Überlegungen durchführen zu 
lassen: 


1) Kann ich (der Computer) mit einem Spielzug das Spiel 
für mich entscheiden? 


2) Kann ich (der Computer) mit dem folgenden Zug verhin- 
dern, daß mein Gegner das Spiel gewinnt? 
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Zusätzlich besteht dann noch die Möglichkeit, taktische 
Spielvarianten in den Programmablauf aufzunehmen. Bei 
"Vier gewinnt" könnte eine Taktik - die auch zum Spielge- 
winn führt - darin bestehen, möglichst drei Chips in eine 
Reihe zu bekommen, die nicht von gegnerischen Spielsteinen 
eingegrenzt werden. In den einzelnen Programmteilen müßten 
dann zusätzliche Anweisungen, beginnend mit 


IF h=2 AND ... THEN ... 


aufgenommen werden. 


In dem folgenden Programm beschränken wir uns aber auf die 
ersten beiden Denkschritte. Ein Nicht-Zutreffen führt dann 
eben nicht zum Griff in die taktische Trickkiste, sondern 

es wird der Zufallsgenerator bemüht. Auswirkungen des 
übernächsten Spielzugs werden also nicht berücksichtigt. 


Ein Wort noch zur Programmiertechnik: 

Der Computer denkt im Programm flächendeckend nach, d. h. 
es werden u. U. sehr viele Felder untersucht, die noch gar 
nicht spielrelevant sind. Eine andere Programmiertechnik, 

die in der Anfangsphase des Spiels auch kürzere Rechenzei- 
ten zur Folge hätte, könnte darin bestehen, die Denkarbeit 
auf die besetzten Felder zu beschränken. Die einzelnen 

IF ... THEN-Anweisungen blieben dabei prinzipiell die 
gleichen. 


Ansonsten bleibt Ihnen noch viel Erfolg bei dem Vergleich 
Mensch - Maschine zu wünschen. Bedenken Sie, drei Chips in 
einer Reihe übersieht Ihr Rechner auf gar keinen Fall ... 


2 


Programm: 


10 RE M 


127 


INT TAB "T27 


vier 


gewinnt" 


INT=FRINTSFRINTSFRINTIFRINTE 


"RINT TABt1O) 
€ GOSUR 1180 
70 FRINT"Spielregeln :" 
au FRINT"Ziel cd SR 
\ RINT"eine Reihe zu 
'RINT"zontal, 
INT"Das Spielfeld 
FRINT"Feldern. Die 
FRIN r " u chnumeriert. 


"Berne 


jels 


die 


Kowal, 


:FRINTEFRINT 
ist 
bel:ammen 
vertikal 
ist 
Reihen 


es, vier Chips in" 
(egal ob hari-" 
oder diaganal)." 

ein Raster von B X & 
sind von 1 bis 8" 
Wollen Sie zum Beispiel" 


in 


ar 
die unterste 


F RINT" Far 
FRINT"Das 
CHFOFCLGE 


» Chips 


AD); CHFECL4EI SCH 
Ihre Chips 


ind 


ISCH 
Sie begin 


AND & "j" THEN 
TO; INT" "" 


he werfen, S0 
ben. Der Chip" 
auf einen an" 
Reihe" 


2 ";CHREECLETD 


:FRINT 
a "nCHFOR ( ä 


37335 CHF CAOTISFRINT 
Gi/nd "ya 


DE 


I FRINT CHR (14793360 


195 


FRINT CHRE(157) 
FRINT:FRINTENEXT i 


=2 TO 19 STEF 
JyisFRINT C 
E Jsi+13PRINT 


#149) 
CHRE (149) 
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OGCATE Js ra FRINT CHREIUL4F) 

LOCATE Jai+Z2s FRINT CHRF (149) 

k T I:LUCATE J,i»FRINT CHREF IL 
IMIT" ;:FüR i=1 TO B 


£ mecols,jd®l 

‚430 LOCATE 3 INFUT"Ihre Wahl 

490 IF 8 IR 85 THEN ee. 

J=1:50SUR 1110 


FOR i=1 TO 3 


Ei j)= 
ei, 1 AND coli.) THEN sis 
10890: GOSUR 111C:60T0 10su 


sbtiyj)® 
sb (i,jeidel AND sb(i,jrdel THEN or 
=0:c0 (8% ‚a0y= 


| ii=i ELSE h=h+i 
bti,j)=O THEN ilei ELSE hehri 


> AND mr til,j“ 
H Sue 1110 »G0T0O 1 
BI AND r (il,j- 
ve ET LOOO 


1& & THE N h: sbl=sbl+lıs 2+1:G60T0 
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: THEN 00 
I 25tip,Jp>=Ö THEN ipleip:jpl=jip 
GOTO 816 
IF Ci j THEN inl® Jpil=jn ELS z ‚heh+l 
ip=ip+i:jip 
AND vr tipl, 


3i)edscots,J31l)=0:60T0 1000 


IF cotip,jp)= OO THEN ipl=ip:jpl=jp ELSE 


GOTO 930 


Jeleidel 
1110:G0TO 1060 
a 1)=0 AND rdöipi,ipielbel 
THEN Flat B 
NEXT 
1110, G0T0 480 


l=]1 +1: IF 1:8 THEN 1050 
IF 1=1 THEN s (1) RR N 
stl’destl- 1 +1: IF s{1l)=%P THEN 

] 10B80:c0 (5 else 


B=1:6070 Ss 
LOCATE 19,2: FRINT"Sie haben gewonnen":GOTO 1070 


1050 
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El DE ATE 


19,2 FRINT"Ich habe yenuonnen" 


: RETURN 
ELSE 1000 
2 TO 17 STEF 3 


AND r (5 1 THEN RETURN 
5,15 FRINT EHRE (ed) ; CHREE Cod3 5; CHFEF 
5 „itlsFRINT CHRECCH) # (cd); CHRE 
J=Ü0 AND ke THEN FEN ©: 1:60T0 1140 
" is RETURN 


>» eine Taste druecken 


THE N 13210 
LIEUN 


- 281 — 


Variablenliste: 


a$ = Antwortstring (j/n) 

cd = "Chipdesign", numerischer Ausruck für das 
Zeichnen der Chips im Unterprogramm Satz 1110- 
1170 

co(i,j) = Rasterfeld (i für die Spalte und j für die Zei- 
le); gleich 1, wenn der Computer das Feld be- 
setzt hat, ansonsten gleich 0 


h = Zählvariable für die Anzahl der in einer Reihe 
liegenden Chips 


i = Laufindex 
il = Spaltenindex für ein nicht besetztes Feld 
ip = Spaltenindex bei der Betrachtung der Diagonalen 


ipl = Spaltenindex bei der Betrachtung der Diagonalen 
für ein nicht besetztes Feld 


jJ = Laufindex 


Jl = Zeilenindex für ein probehalber besetztes Feld 
(s ist der entsprechende Spaltenindex) 


Jp = Zeilenindex bei der Betrachtung der Diagonalen 


jpl = Zeilenindex bei der Betrachtung der Diagonalen 
für ein nicht besetztes Feld 


k = Hilfsvariable im Unterprogramm Satz 1110-1170 


1 = Laufindex für den zu testenden Spaltenwert 
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p = Hilfsvariable, die anzeigt, welcher der beiden 
Denkschritte ausgeführt wird 


r(i,j) = Rasterfeld (i für die Spalte und j für die Zei- 
le); gleich 1, wenn es besetzt ist (egal mit 
welchen Chips), ansonsten gleich 0 


s,s(i) = ausgewählter oder berechneter bzw. per Zufall 
ermittelter Spaltenwert 


sb(i,j) = Rasterfeld (i für die Spalte und j für die Zei- 
le); gleich 1, wenn der Spielpartner des Com- 
puters das Feld besetzt hat, ansonsten gleich O 
sbl = untere Begrenzung einer Programmschleife 


sb2 = obere Begrenzung einer Programmschleife 


z = Zeilenindex im Unterprogramm Satz 1110-1170 


Programmbeschreibung: 


Satz 10- 60 : Überschrift 


Satz 70- 240 : Ausgabe der Spielregeln und Abfrage be- 
züglich des Spielbeginns 


Satz 250- 460 : Das Spielfeld wird aufgezeichnet. Zusätz- 
lich werden in Satz 460 die Rasterfelder 
mit der Zeile 0 gleich 1 gesetzt, um dem 
Computer mitzuteilen, daß ein Chip nur 
bis in die erste Zeile und nicht tiefer 
fällt. 
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Satz 470 : Es wird eine Zufallszahl zwischen 3 und 6 
gebildet, wenn der Rechner mit dem Spiel 
beginnen soll. Weiterhin werden dann die 
entsprechenden Felder belegt und der 
Spielstein wird eingezeichnet. 


Satz 480- 500 : Spaltenauswahl des Programmbenutzers, 
Felderbelegung und Einzeichnen des Chips 


Satz 510-1040 : Der Computer denkt nach 
Dieser Programmteil wird zuerst für p=0 
durchlaufen, d. h. der ComPuter unter- 
sucht, ob er das Spiel zu seinen Gunsten 
entscheiden und somit beenden kann. Ist 
das nicht der Fall, erfolgt ein Durchlauf 
für p=1, d. h. der Computer prüft, ob die 
zufällig in Satz 1010 gebildete Zahl 
nicht dazu führt, daß der Spielpartner 
das Spiel gewinnt. Diese zufällig gebil- 
dete Zahl geht nur dann als Auswahl des 
Computers in das Spiel ein (Satz 980), 
wenn nicht während des Durchlaufs zum 
Satz 1000 (Test einer neuen Zahl) ver- 
zweigt wurde. Ein Sprung zum Satz 1000 
erfolgt immer dann, wenn die Auswahl ei- 
ner Zahl bzw. Spalte zur Niederlage des 
Rechners führen würde. Er beinhaltet 
gleichzeitig, daß die in Satz 1030 probe- 
halber besetzten Felder r(s,jl) und 
co(s,jl) wieder gleich 0 gesetzt werden. 
Maximal werden die 8 möglichen Spalten 
durchprobiert (Satz 1000-1020, nur die 
erste Zahl wird zufällig gebildet). Nach 
8 erfolglosen Durchläufen gibt der Com- 
puter auf und verzweigt zum Programmende 
(mit Kommentarausgabe in Satz 1050), 
d. h. der Programmbenutzer muß u. U. 
überlegen, warum er gewonnen hat. 
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Satz 


Satz 


Satz 


Satz 


Satz 


Im einzelnen lassen sich folgende Pro- 

grammteile unterscheiden: 

510- 610 : Untersuchung der Vertikalen 

620- 730 : Untersuchung der Horizontalen 

740- 850 : Untersuchung der von links un- 
ten nach rechts oben anstei- 
genden Diagonalen 

860- 970 : Untersuchung der von rechts 
unten nach links oben anstei- 
genden Diagonalen 

980-1040 : Einzeichnen eines Chips und 
Sprung zur Auswahl des Spiel- 
partners, falls ein Durchlauf 
erfolgreich absolviert wurde, 
sowie Bildung von Probezahlen, 
Probebelegungen der Felder 
r(s,jl) und co (s,jl) und 
Rücksprung zum Satz 510 


1050-1060 : Kommentar zum Spielausgang 
1070 : Programmende 


1080-1100 : Unterprogramm zur Belegung des Feldes 
r(s,j) in Abhängigkeit von der ausgewähl- 
ten Spalte s. Befinden sich schon 6 Chips 
in der Spalte, so erfolgt ein Rücksprung 
zur erneuten Auswahl (die Variable cd 
zeigt dabei an, ob der Computer oder der 
Spielbenutzer die Auswahl getroffen hat). 


1110-1170 : Unterprogramm zum Einzeichnen eines 
fallenden Chips 


1180-1230 : Unterprogramm "Warten" 
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10.4. Ideenfundgrube 


- Brettspiele wie Dame, Mühle oder Schach 
- Kartenspiele wie Skat, 17 und 4 oder Doppelkopf 
- Würfelspiele und Knobeleien 
- Memory oder Scramble 
Monopoly oder Risiko 
Labyrinthspiele 
Schiffe versenken 
Mondlandung 
Invaderspielchen jeglicher Art 


und noch vieles mehr 
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11. Schlußbemerkung 


Nachdem Sie dieses Buch eifrig oder weniger eifrig durch- 
gearbeitet haben, werden Sie hoffentlich um die eine oder 
andere Idee reicher geworden sein. 

. Vielleicht ist Ihnen aufgefallen, daß sich einige Pro- 
grammteile und Routinen in den einzelnen Kapiteln wieder- 
holen. Denken Sie nur an die übliche Menüauswahl mit den 
Funktionen 


eingeben 
ansehen 
einlesen 
abspeichern 


korrigieren 


Zwar lassen sich bei grundsätzlich ähnlichen Problemen 

sog. Programmierrichtlinien entwickeln, welche den Pro- 
grammablauf standardisieren, jedoch ist darauf bewußt ver- 
zichtet worden, um der Vorgehensweise und Denkweise des 
Hobby- umd Amateur-Programmierers näher zu kommen. Dieser 
wird nämlich in der Regel von einem Thema bzw. einem Prob- 
lem ausgehend eine Lösung suchen und nicht weitere Soft- 
wareprojekte im Hinterkopf haben. Auch insofern stellt das 
vorliegende Buch eine Übungs- und Trainingshilfe für den 
angehenden Programmierer dar. 
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Anhang A 


Wichtige BASIC- Anweisungen 


Da alle Schneider-BASIC-Anweisungen ausführlich in Ihrem 
Bedienungshandbuch beschrieben sind, sollen hier nun einige 
elementare Regeln zu ihrer Verwendung aufgezeigt werden: 


l. Jedes BASIC-Programm wird mit dem Statement END abge- 
schlossen. 


2. Die auszugebenden Größen im PRINT-Statement werden 
durch Kommata getrennt, wenn der Ausdruck zu Beginn der 
nächsten Bildschirmzone fortgesetzt werden soll. Bei 
Benutzung des Semikolons schließt sich der Ausdruck unmit- 
telbar an die schon erfolgte Ausgabe an. Ein Komma oder ein 
Semikolon am Ende eines PRINT-Statements unterdrückt den 
sonst erfolgenden Zeilenvorschub. 


3. Das INPUT-Statement fordert genau so viele Werte an, 
wie Variablen in der Variablenliste stehen. Die einzelnen 
Werte sowie die Variablen werden jeweils durch Kommata ge- 
trennt. 


4. Ist die Bedingung im IF ... THEN-Statement erfüllt, 
dann wird die hinter THEN stehende Anweisung ausgeführt. 
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Auch weitere durch Doppelpunkte voneinander getrennte An- 
weisungen, die hinter dem IF ... THEN-Statement stehen, 
werden nur dann ausgeführt, wenn die logische Bedingung er- 
füllt ist. Ist die Bedingung nicht erfüllt, wird einfach 

der nächste Satz bearbeitet. 


5. In FOR ... TO ... NEXT-Statement (Schleife) dürfen An- 
fangswert, Endwert und Schrittweite während der Schleifen- 
durchläufe nicht verändert werden. Der Laufvariablenname 
muß vom reellen Typ - und der gleiche wie im NEXT-Statement 
sein. Schleifen können geschachtelt -, verlassen - und in 
Schleifen kann hineingesprungen werden. 


6. Werden für eine indizierte Variable mehr als die per 
Voreinstellung zur Verfügung stehenden Plätze benötigt, muß 
dimensioniert werden, d.h. Platz reserviert werden (DIM- 
Statement). 


7. Bei der Bildung reeller Variablen muß darauf geachtet 
werden, daß ihre Namen aus maximal 40 alphanumerischen Zei- 
chen bestehen dürfen. Das erste Zeichen muß jedoch ein 
Buchstabe sein. Stringvariablen (Zeichenfol gen) werden mit 
dem $-Zeichen versehen. 


8. Werden dem Rech ner mit dem DATA- und READ-Statement 
Daten bereitgestellt, so müssen Werttypen und Variablen- 
typen übereinstimmen. Dabei wird der ersten Variablen der 
READ-Statements der erste Wert des DATA -Statements zuge- 
ordnet usw. 


9. Hinter den Statements ON ... GOTO und ON ... GOSUB 
werden im gleichen Satz keine weiteren Anweisungen ausge- 
führt. 


- 290 - 


10. Folgende WINDOW-Statements überdecken die Ergebisse 
vorhergehender WINDOW-Statements. 
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Anhang B 


Wichtige Fehlermeldungen 


ARRAY ALREADY DIMENSIONED: Ein Feld wurde zweimal 
dimesioniert. 


CANNOT CONTINUE: Versuch, nach einer Fehlermeldung oder 
einer Programmänderung, das Programm fortzusetzten. 


DATA EXHAUSTED: Es sind mehr READ als DATA-Anweis- 
ungen vorhanden. 


DIVISION BY ZERO: Eine Division durch Null ist unzulässig. 


LINE DOES NOT EXIST: Sprung zu einer nicht vorhandenen 
Satznummer. 


NEXT MISSING: In einer Programmschleife fehlt das NEXT- 
Statement. 


OVERFLOW: Das Ergebnis einer Rechnung ist zu groß. 


REDO FROM START: Es ist versucht worden, nichtnumerische 
Daten bei einer INPUT-Anweisung in eine normale Variable 
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einzulesen. Durch eine erneute Eingabe kann das Programm 
fortgesetzt werden. 


SUBSCRIPT OUT OF RANGE: Ein außerhalb der Dimension- 
ierung liegendes Matrix-Element wurde angesprochen. 


SYNTAX ERROR: Eine Anweisung ist fehlerhaft oder existiert 
nicht. 


TYPE MISMATCH: Numerische Variablen wurden als String oder 
umgekehrt behandelt. 


UNEXPECTED NEXT: In einer Programmschleife fehlt das FOR- 
Statement. 


UNEXPECTED RETURN: Subroutine ohne GOSUB 
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BIERZLAERFBENEREREHRES 

In diesem erstklassigen Buch wird gezeigt, wie 
man die außergewöhnlichen Grafik- und Sound- 
möglichkeiten des CPC 464 nutzt. Natürlich mit 
vielen interessanten Beispielen und nützlichen 
Hilfsprogrammen. Aus dem Inhalt: Grundlagen 
der Grafikprogrammierung, Sprites, Shapes und 
Strings, mehrfarbige Darstellungen, Koordina- 
tionstransformation, Verschiebungen, Drehun- 
gen, Rotation, 3-D-Funktionsplotter, CAD, Syn- 
thesizer, Miniorgel, Hüllkurven und vieles mehr. 


Walkowiak 

CPC 464 Graphik & Sound 
220 Seiten, DM 39,- 

ISBN 2-89011-050-9 
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Alles über Diskettenprogrammierung vom Ein- 
steiger bis zum Profi. Natürlich mit ausführlichem 
ROM-Listing (Betriebssystem), einer äußerst 
komfortablen Dateiverwaltung, einem hilfreichen 
Disk-Monitor und einem ausgesprochen nützli- 
chen Disk-Manager. Dazu eine Fundgrube ver- 
schiedener Programme und Hilfsroutinen, die 
das Buch für jeden Floppyanwender zur Pflicht- 
lektüre machen. 


Brückmann/Schieb 

Das Floppy-Buch zum CPC 464 
ca. 250 Seiten, DM 49,- 

ISBN 3-89011-093-2 
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Wer die wichtigen Peeks und Pokes zum CPC 
464 kennen und anwenden will, der findet hier 
umfassende Information. Sie reicht vom Adreß- 
bereich des Prozessors über Betriebssystem 
und Interpreter bis hin zur Einführung in die 
Maschinensprache. Dazu präsise Programmier- 
hilfen, sinnvolle Routinen sowie reichlich Mate- 
rial zu den Themen Grafikfunktionen, Massen- 
speicherung und Peripherie, Tricks und Formeln 
in BASIC, RAM-Pages. 


Lisert/Schieb 

Peeks & Pokes zum CPC 464 
ca. 220 Seiten, DM 29,- 

ISBN 3-89011-092-4 


Endlich CP/M beherrschen — mit diesem Trai- 
ningsbuch kein Problem! Von ganz grundsätzli- 
chen Erklärungen zu beispielsweise Speiche- 
rung von Zahlen, Schreibschutz oder ASCII- 
System über Schnittstellen, andere Betriebs- 
systeme und Anpassung von CP/M bis hin zur 
ausführlichen Behandlung des Schwerpunktes 
Dateien. Außerdem CP/M-Hilfsprogramme und 
ihre Anwendung. Speziell zugeschnitten auf 
Ihren CPC 464! 


Weller/Schieb 

CP/M Trainingsbuch zum CPC 464 
ca. 300 Seiten, DM 49,- 

ISBN 3-89011-089-4 
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Von den Grundlagen der Maschinensprachepro- 
grammierung über die Arbeitsweise des Z80- 
Prozessors und einer genauen Beschreibung 
seiner Befehle bis zur Benutzung von System- 
routinen ist alles ausführlich und mit vielen Bei- 
spielen erklärt. Im Buch enthalten sind Assem- 
bler, Disassembler und Monitor als komplette 
Anwenderprogramme. So wird der Einstieg in die 
Maschinensprache leichtgemacht! 


Dulin/Straßenburg 

Das Maschinensprachebuch zum CPC 464 
330 Seiten, DM 39,- 

ISBN 3-89011-070-3 


Wer sich für den CPC 464 entschie- 
den hat, findet mit diesem 

DATA BECKER Buch gleich den richti- 
gen Start. Wichtige Hinweise zu Hand- 
habung und Anschlußmöglichkeiten, 
Hilfen für eigene Programme auf dem 
CPC 464. Viele Abbildungen ergänzen 
den Text. Das ideale Buch für jeden 
CPC 464 Computeranfänger. 

CPC 464 für Einsteiger, 206 Seiten, 
DM 29,— 
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Anregungen und Hilfen zum CPC. Von 
Hardwareaufbau, Betriebssystem, 
BASIC-Tokens, Zeichnen mit dem Joy- 
stick, Anwendungen der Windowtech- 
nologie und vielen Programmen wie 
einer umfangreichen Dateiverwaltung, 


Soundeditor, komfortablem Zeichenge- 


nerator bis zu kompletten Listings 
spannender Spiele bietet das Buch 
eine Fülle von Möglichkeiten. 

CPC Tips & Tricks, 263 Seiten, 
DM 39,— 


Das sollte Ihr erstes Buch zum CPC 
6128 sein. CPC 6128 für Einsteiger ist 
eine sehr leicht verständliche Einfüh- 
rung in Handhabung und Einsatz des 
CPC 6128, die keinerlei Vorkenntnisse 
voraussetzt. Dazu eine Einführung in 
BASIC, wobei Sie eine komplette 
Adressenverwaltung erstellen, die Sie 
anschließend nutzen können. Unent- 
behrlich für jeden CPC 6128 Einsteiger! 
CPC 6128 für Einsteiger, ca. 200 Sei- 
ten, DM 29,- (erscheint ca. Oktober) 
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Dieser Band ist für alle CPC Besitzer 
interessant. Aus dem Inhalt: Menue- 
generator, Maskengenerator, BASIC- 
Befehlserweiterungen, Programmier- 
hilfen wie Dump, BASIC-Zeile von 
BASIC aus erzeugen, wichtige System- 
routinen und deren Nutzung, 
Beschleunigung von Programmen und 
vieles mehr. 

CPC Tips & Tricks Band Il, mehr als 
250 Seiten, DM 39,— (erscheint im 
November) 
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Das Standardwerk zum CPC! Neben 
dem ausführlich dokumentierten und 
kommentierten BASIC-ROM-Listing 
enthält es umfangreiche Kapitel zu 
Speicheraufteilung, Prozessor, Beson- 


derheiten des Z 80, Gate Array, Video- 


Controller und Video-Ram, Soundchip, 
Schnittstellen, Betriebssystem, Routi- 
nennutzung, Character-Generator, 
BASIC-Interpreter und mehr. 

CPC 464 INTERN, 548 Seiten, 

DM 69,— 


Ein Muß für jeden, der sich professio- 
nell dem CPC 664 oder dem CPC 6128 
beschäftigt. Einführung in das System, 
den Prozessor, das Gate Array, den 
Video-Controller, den Schnittstellen- 
baustein 8255, den Soundchip, die 
Schnittstellen. Dazu natürlich ein kom- 
plettes und ausführlich dokumentier- 
tes Listing des BASIC-Interpreters und 
des Betriebssystems. Mit Schaltplänen! 
CPC 664/6128 INTERN, mehr als 
500 $S., DM 69,- (ersch. im Nov.) 


Nützliche und pfiffige Ideen rund um 
Freizeit und Alltag! Programme mit 
Beschreibung und Beispielen zu: Lotto 
- Benzinverbrauch - Geld und Kredit 
- Schreiben und Verwalten - Staat 
und Steuer - Haushaltsorganisation — 
Fußball - Kinder und Schule - und 
vieles mehr. 

Das Ideenbuch zum CPC, 

ca. 250 Seiten, DM 39,— 


Programme zu SCHNEIDER CPC 
BUDGET-MANAGER Q Eden: 


DM 148,- x 


Der BUDGET-MANAGER ist die universelle Buchführung sowohl für private Zwecke 
als auch zur Planung, Überwachung und Abwicklung von Budgets jeglicher Art. 


PERLE 
Es können 430 Budgetsätze und 335 Kontensätze verwaltet werden. Ein Budgetplan sowie auch ein Kontenplan 
können per Programm erstellt werden. Die Einsatzmöglichkeiten sind äußerst vielfältig: Einzelanzeige von Konten 
- Geldfälligkeiten - Amortisation - Zinsen - Tilgung - bis zur richtigen kleinen Privatbilanz. Das Programm ist voll 
menuegesteuert. Es zeigt jeweils an, auf welcher Seite des Handbuches man die Erkärungen zum entsprechenden 
Programmteil findet. Zusätzlich werden sehr komfortable Druckausgabe- und Auswertungsmöglichkeiten gebo- 
ten: Bildschirm, Drucker, Grafikausgabe auf dem Bildschirm und deren Hardcopy auf dem Drucker. Erforderliche 
Hardware: CPC mit Diskettenlaufwerk, ein zweites Laufwerk wird unterstützt. Komplett mit ausführlichem Hand- 
buch. 


TEXTOMAT TEXTOMAT 
DM 148,-« 


Deutschlands meistverkaufte Textverarbeitung gibt es jetzt endlich auch für den 
Schneider CPC 464! 


Das gesamte Programm ist in benutzerfreundlicher Menütechnik aufgebaut. Wahlweise kann der amerikanische- 
oder deutsche Zeichensatz verwendet werden. Diese Anpassung gilt auch für den Drucker und ermöglicht indivi- 
duelle Anpassung an jedes Problem! Selbstverständlich wurden bei dieser Textomat-Version die Möglichkeiten, 
speziell des Schneider CPC 464 ausgenutzt; so besitzt diese Version zusätzlich zu dem bewährten 64-Textomat 
80-Zeichen/Zeile-Darstellung, Tabulatoren, Word Wrap und Trennvorschläge! Textomat kurz zusammengefaßt: 
Durch Verknüpfungstechnik können beliebig lange Texte erstellt, gespeichert, geladen, verändert und ergänzt 
werden. Auch Funktionen wie Suchen/Ersetzen, Blockoperationen oder gar Rechenfunktionen für alle Grundrech- 
nungsarten fehlen im TEXTOMA1 nicht! Die Ausgabe auf den Drucker geschieht problemlos durch Druckeranpas- 
sung. Das Druckformat kann beliebig gewählt werden. TEXTOMAT ist zukunftsorientiert; in Verbindung mit der Da- 
teiverwaltung DATAMAT ist auch die Erstellung von Serienbriefen kein Problem mehr!Im Lieferumfang einge- 
schlossen ist ein ausführliches deutsches Handbuch! Übrigens: Viele DATA BECKER Autoren nutzen TEXTOMAT 
wegen seiner Vielseitigkeit und leichten Bedienung sogar zum Erstellen ganzer Bücher! 


DATAMAT D ATA M. AT 


DM 148,-« 


Endlich auch auf dem Schneider CPC 464: Die bewährte DATA BECKER-Dateiver- 
waltung jetzt in einer speziellen Version für alle Freunde dieses universell einsetzba- 
ren Mikrocomputers! 


Das Hauptprogramm liegt vollständig im Speicher - Nachladen und lästige Diskettenwechsel sind also nicht mehr 
nötig ! Durch die Menütechnik ist DATAMAT extrem einfach zu bedienen. Es lassen sich jede Art von Daten verar- 
beiten, die Eingabemaske ist vom Benutzer völlig frei definierbar (Es stehen bis zu 80 Zeichen/Zeile zur freien Ver- 
fügung). So läßt sich DATAMAT als Dateiverwaltung praktisch überall einsetzen. Bis zu 512 Zeichen können jetzt 
pro Datensatz verarbeitet werden. Durch sämtliche Menüpunkte wird der Benutzer mit Hilfe von Begleitanweisun- 
gen bedienerfreundlich geführt. Falsche Bedienung ist praktisch unmöglich! Durch entsprechende Routinen läßt 
sich jeder Datensatz superschnell in 2-3 Sekunden suchen (Programm komplett in Maschinensprache). Es läßt 
sich nach einem Hauptkriterium oder beliebigen anderen Daten eines Datensatzes suchen. Auch der Ausdruck ist 
kein Problem: Druckeranpassung an viele Drucker ist selbstverständlich möglich. Listen lassen sich in völlig freiem 
Format drucken, auch Etiketten - kein Problem! DATAMAT ist nicht allein: selbstverständlich gibt es eine Schnitt- 
stelle zum TEXTOMAT - beide lassen sich ideal kombinieren. Dem Ausbau des Systems steht also nichts im Wege! 
Das Programm wird mit umfangreichem deutschen Handbuch geliefert. 


« unverbindliche Preisempfehlung. Alle Programme auf Diskette. 
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